В десятичной записи числа 42*4* две цифры пропущены. Восстановите пропущенные цифры, если известно, что число кратно 72. Паскаль, через вложенные циклы.
В десятичной записи числа 42*4* две цифры пропущены.
Восстановите пропущенные цифры, если известно, что число кратно 72.
Паскаль, через вложенные циклы.
Гость
Ответ(ы) на вопрос:
Гостьvar i,j:integer;
begin
for i:=0 to 9 do
for j:=0 to 9 do
if (42000+i*100+40+j) mod 72 = 0
then writeln(42000+i*100+40+j);
end.
Результат:
42048
42840
Гостьvar
i, j, s: longint;
begin
for i := 0 to 9 do
for j := 0 to 9 do
begin
s := (42040 + i * 100 + j);
if(s mod 72 = 0) then writeln(s, ' ', i, ' ', j);
end;
end.
Не нашли ответ?
Похожие вопросы