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

nikusachev01 nikusachev01    3   21.08.2019 01:20    1

Ответы
angel218 angel218  05.10.2020 08:22
Var max,s:integer;
begin
write('max = ');
readln(max);
s:=1;
while s<=max do
 begin
 write(s,' ');
 s:=s+7;
 end;
writeln;
end.

Пример:
max = 40
1 8 15 22 29 36 
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика