Составьте программу на Паскале, которая вводит 2 целых числа M и
Составьте программку на Паскале, которая вводит 2 целых числа M и N и печатает все целые числа меж M и N, делящиеся на 7, включая и сами эти числа. Замечание: программа обязана учесть, что заблаговременно не известно, какое из чисел M или N больше иного.
Задать свой вопрос
var
N, M, prov: longint;
begin
readln(N);
readln(M);
if N lt; M then
begin
prov := N;
while prov lt;= M do
begin
if prov mod 7 = 0 then
writeln(prov);
inc(prov);
end;
end
else
begin
prov := M;
while prov lt;= N do
begin
if prov mod 7 = 0 then
writeln(prov);
inc(prov);
end;
end;
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.