Вопрос, который вызвал трудности
Программа суммирует n-е количество вводимых с клавиатуры чисел
Ответ экспертов Учись.Ru
Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.
После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:
program DemoWhile;
var c, n: integer;
x, s: real;
begin
write (‘Введите к-во чисел n=’);
readln (n);
c:=0;
s:=0;
while c<=n do
begin
c:=c+1;
write (c,’-е число:’);
readln (x);
s:=s+x
end;
write (‘Сумма чисел =’,s)
end.
var c, n: integer;
x, s: real;
begin
write (‘Введите к-во чисел n=’);
readln (n);
c:=0;
s:=0;
while c<=n do
begin
c:=c+1;
write (c,’-е число:’);
readln (x);
s:=s+x
end;
write (‘Сумма чисел =’,s)
end.