НАПИСАТЬ ПРОГРАММУ: найдите всеНАПИСАТЬ ПРОГРАММУ: найдите все пятизначные числа, которые при делении на 133 дают в остатке 125, а при делении на 134 дают в остатке 111. С помощью паскаля
НАПИСАТЬ ПРОГРАММУ: найдите всеНАПИСАТЬ ПРОГРАММУ: найдите все пятизначные числа, которые при делении на 133 дают в остатке 125, а при делении на 134 дают в остатке 111. С помощью паскаля
Гость
Ответ(ы) на вопрос:
Гостьвроде так
var i:word;
begin
Writeln('mod 133 = 125:');
for i:=10000 to 99999 do if (i mod 133 = 125) then Write(i,' ');
Writeln; Writeln('mod 134 = 111:');
for i:=10000 to 99999 do if (i mod 134 = 111) then Write(i,' ');
readln();
end.
Не нашли ответ?
Похожие вопросы