Задача 58149 Написать программу в Паскаль с...

5f54a07dd4ce5a71e171a096

27.02.2021 15:08:06

Написать программу в Паскаль с использованием цикла WHILE..DO и REPEAT...UNTIL (два варианта программы)
Даны натуральные числа m и n. Получить все кратные им числа, не превышающие n*m.

602b98c03cfdeb46290c96fb

05.03.2021 17:48:00

★

[r]program mn;
var
i,m,n:integer;
begin
write('M: ');
readln(m);
write('N: ');
readln(n);
writeln('FOR');
for i:=1 to n do
write(i*m,' ');
for i:=1 to m-1 do
write(i*n,' ');
writeln;
writeln('WHILE');
i:=1;
while i<=n do
begin
write(i*m,' ');
inc(i);
end;
i:=1;
while i<=m-1 do
begin
write(i*n,' ');
inc(i);
end;
writeln;
writeln('REPEAT');
i:=1;
repeat
write(i*m,' ');
inc(i);
until i>n;
i:=1;
repeat
write(i*n,' ');
inc(i);
until i>m-1;
readln;
end.[/r]