| ← Апрель 2016 → | ||||||
|
2
|
3
|
|||||
|---|---|---|---|---|---|---|
|
4
|
6
|
7
|
9
|
|||
|
11
|
12
|
13
|
14
|
15
|
16
|
17
|
|
18
|
19
|
20
|
21
|
22
|
23
|
24
|
|
25
|
26
|
27
|
28
|
29
|
30
|
|
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://prog.rusfaq.ru/pascal
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на языке Pascal
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты по данной тематике
/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Pascal (Паскаль)
Консультация # 189018: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: не могу написать программу в FreePascal с помощью циклических алгоритмов a,b,c, натуральны числа. Они называются пифагоровыми,если a^2+b^2=c^2. Напечатать все пифагоровы числа,меньшие данного числа n... Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 27.03.2016, 11:59 Консультирует Зенченко Константин Николаевич (Чебуратор): Здравствуйте, natalya270996! Код (Pascal) :: выделить код var
a,n:integer;
begin
repeat
write('Enter n:');readln(n);
until n<>0;
for a:=100 to 999 do
if(a mod n = 0)or
(a mod 10 = n)or(a div 10 =n)or
(a mod 100= n)or(a div 100=n)then write(a:5);
end.Удачи!
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 27.03.2016, 12:01 Консультирует Сучкова Татьяна Михайловна (Погонятор): Здравствуйте, natalya270996! Код :: выделить код begin
var i,j,k,n:integer;
begin
writeln ('введите число');
readln (n);
n:=sqr(Trunc(sqrt(n)));
for i:=1 to n do
for j:=i to n do
for k:=j to n do if i*i+j*j=k*k then writeln(i,' ',j,' ',k);
end;
end.
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
