Всеслав
5 год назад
Написать программу ввода с клавиатуры и суммирования любого количества целых значений. Условием выхода считать сумму значений равному числу 1000.
ОТВЕТЫ
Shaw Randall
Oct 24, 2020
Var a,s : Integer;
Begin
s:=0;
While s<>1000 do
Begin
Readln(a); s:=s+a;
Writeln('Текущая сумма: ',s);
end;
end.
Begin
s:=0;
While s<>1000 do
Begin
Readln(a); s:=s+a;
Writeln('Текущая сумма: ',s);
end;
end.
481
Смежные вопросы:
