Суммировать натуральные четные числа, пока сумма не превысит 200. Определить количество слагаемых. Решить задачу циклом с предусловием.
Суммировать натуральные четные числа, пока сумма не превысит 200. Определить количество слагаемых.
Решить задачу циклом с предусловием.
Гость
Ответ(ы) на вопрос:
Гость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
Не нашли ответ?
Похожие вопросы