Информатика, опубликовано 2018-08-22 18:26:18 by Гость

Написать программу в Паскале, которая прибавляет к 1 число 7 до тех пор, пока полученная сумма не превысит max число, введенное с клавиатуры. После каждого действия вывести полученную сумму, если она меньше max числа

Ответ оставил Гость

Var max,s:integer;
begin
write(max = );
readln(max);
s:=1;
while s begin
write(s, );
s:=s+7;
end;
writeln;
end.

Пример:
max = 40
1 8 15 22 29 36

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.