составить программу, которая вычисляет сумму вводимых с клавиатуры целых чисел до ввода отрицательного числа и выводит на экран значение вычисленной суммы.
Ответы
Ответ дал:
0
var a,b,s:integer;
begin
s:=0;
repeat
readln(a);
s:=s+a;
until a<0;
writeln(s);
end.
begin
s:=0;
repeat
readln(a);
s:=s+a;
until a<0;
writeln(s);
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад
9 лет назад