program z4;
var sum: real;
count, x:integer;
begin
count:=1; sum:=0;
repeat
write ('Введите значение’, count, '-го слагаемого'); read(x);
count:=count+1;
if x<>999 then sum:=sum+x;
until x=999;
writeln ('Сумма введенных чисел = ', sum:7:3);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
