Решите задачу по информатике в Паскалях. Найти максимальное из натуральных чисе, не превышающих 5000, которое нацело делится на 39
Решите задачу по информатике в Паскалях.
Найти максимальное из натуральных чисе, не превышающих 5000, которое нацело делится на 39
Гость
Ответ(ы) на вопрос:
Гость1 2 3 4 5 6 7 8 9 10 11 program chisla; uses crt; var i,max:integer; begin clrscr; max:=1; for i:=1 to 5000 do if (i>max) and (i mod 39=0) then max:=i; write('max= ',max); readln; end.
ГостьVar A:integer;
Begin
A:=5000;
While A mod 39 <> 0 do
A:=A-1;
WriteLn(A);
End.
Не нашли ответ?
Похожие вопросы