Напечатать N чисел, начиная с a, так, чтобы после каждого числа, кратного 7, печать продолжалась с новой строки. Программа на паскале выполнить

Каракоз11111 Каракоз11111    2   21.03.2022 06:18    1

Ответы
Maria2006qwerty Maria2006qwerty  21.03.2022 06:20

program z;

var a,n,i:integer;

begin

read(a,n);

for i:=a to a+n-1 do

if i mod 7 = 0 then writeln(i) else write(i,' ')

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика