Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Суммировать натуральные четные числа, пока сумма не превысит 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