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

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку