Question

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

Answer 1

Ответ:

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.