Program Primer;
var sum, a: real;
begin
sum:=0;
а:=0;
repeat
sum:=sum+a;
write('Введите число');
readln(a)
until a < 0
writeln (sum);
readin
end.
Какое число получится, если
ввести ряд чисел

goldlena1979    3   23.04.2020 17:57    1