ДС
Дмитрий Соколов
Нужна помощь! Решить задачу с использованием цикла While:(delphi7, паскаль)
Вывести на экран целые числа в интервале от N до M, кратные 6 и больше 30.
Числа вывести в столбик!
Вывести на экран целые числа в интервале от N до M, кратные 6 и больше 30.
Числа вывести в столбик!
i:=N;
while i<=M do
begin
if (i mod 6 = 0) and (i>30) then write(i, ' ');
inc(i);
end;
Write('N M ? '); ReadLn(N, M);
if N < 30 then
i := 36
else
i := (N div 6 + 1) * 6;
while i <= M do
begin
Write(#32, i);
Inc(i, 6);
end;
WriteLn;
wrieteln