Grara
7 год назад
Составить программу, которая вычисляет сумму вводимых с клавиатуры целых чисел до ввода отрицательного числа и выводит на экран значение вычисленной суммы.
ОТВЕТЫ
Харисий
Aug 13, 2019
Var a,b,s:integer;
begin
s:=0;
repeat
readln(a);
s:=s+a;
until alt;0;
writeln(s);
end.
begin
s:=0;
repeat
readln(a);
s:=s+a;
until alt;0;
writeln(s);
end.
25
Смежные вопросы:
