Напишите программу для решения следующей : даны натуральные числа m, n. получить все кратные им числа, меньшие m*n. сделать в pascal

Semen200000000 Semen200000000    1   13.06.2019 03:20    24

Ответы
Franni Franni  10.07.2020 11:14
Program pr1;
var i,m,n:integer;
begin
readln(m);
readln(n);
for i:=1 to m*n-1 do begin
if (i mod n = 0) and (i mod m = 0)
then
writeln(i)
end
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика