Предмет: Информатика,
автор: kedr2000
В десятичной записи числа 42**4 замените звездочки цифрами, если известно, что число кратно 72. Выведите найденные числа на экран. Решите, пожалуйста, задачу не через for. Буду благодарен.
Ответы
Автор ответа:
0
program z1;
var i:byte;
s:longint;
begin
i:=0;
while i<=99 do begin
s:=42004+i*10;
if (s mod 72)=0 then begin
writeln(s)
end;
i:=i+1
end;
readln
end.
var i:byte;
s:longint;
begin
i:=0;
while i<=99 do begin
s:=42004+i*10;
if (s mod 72)=0 then begin
writeln(s)
end;
i:=i+1
end;
readln
end.
Автор ответа:
0
Спасибо, благодарен:)
Интересные вопросы
Предмет: Физика,
автор: asalya19800509
Предмет: Литература,
автор: AIDM69
Предмет: Английский язык,
автор: kudinovairina070
Предмет: Химия,
автор: LordNitrogen
Предмет: Обществознание,
автор: ольчик97