Напечатать N чисел, начиная с a, так, чтобы после каждого числа, кратного 7, печать продолжалась с новой строки.
Программа на паскале,помогите выполнить
Ответ
0 (0 оценок)
0
valgrisa 1 год назад
Светило науки - 1368 ответов - 0 раз оказано помощи

Ответ:

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.

Остались вопросы?