Решите задачу по информатике в Паскалях.
Найти максимальное из натуральных чисе, не превышающих 5000, которое нацело делится на 39
Ответы
Ответ дал:
0
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.
Ответ дал:
0
Ответ можно редактировать))
Ответ дал:
0
Var A:integer;
Begin
A:=5000;
While A mod 39 <> 0 do
A:=A-1;
WriteLn(A);
End.
Begin
A:=5000;
While A mod 39 <> 0 do
A:=A-1;
WriteLn(A);
End.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад