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

нургалым1    1   23.04.2020 17:40    0