Напечатать N чисел, начиная с a, так, чтобы после каждого числа, кратного 7, печать продолжалась с новой строки.
Программа на паскале,помогите выполнить
Ответы
Ответ дал:
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.
Похожие вопросы
1 год назад
1 год назад
2 года назад
8 лет назад
8 лет назад
9 лет назад