Предмет: Информатика,
автор: Василий23121998
Суммировать натуральные четные числа, пока сумма не превысит 200. Определить количество слагаемых.
Решить задачу циклом с предусловием.
Ответы
Автор ответа:
0
var
i,s:integer;
begin
i:=1; s:=0;
while s<=200 do
begin s:=s+i; Inc(i) end;
Writeln('В сумме, равной ',s,', количество слагаемых равно ',i-1)
end.
Результат выполнения программы:
В сумме, равной 210, количество слагаемых равно 20
i,s:integer;
begin
i:=1; s:=0;
while s<=200 do
begin s:=s+i; Inc(i) end;
Writeln('В сумме, равной ',s,', количество слагаемых равно ',i-1)
end.
Результат выполнения программы:
В сумме, равной 210, количество слагаемых равно 20
Похожие вопросы
Предмет: География,
автор: hadzigleb2009
Предмет: История,
автор: Gulsayaalimzhanova22
Предмет: Литература,
автор: alexgamartsa
Предмет: Алгебра,
автор: adzayka