Вычислить сумму N целых чисел, вводимых с клавиатуры
Program P1;
const n=5;
var x,i,s:real;
begin
s:=0;
for i:=1 to n do
begin
readln(x);
s:=s+x;
end;
writeln(’Сумма равна ’,s);
end.

Question

Информатика: Вычислить сумму N целых чисел, вводимых с клавиатуры Program P1; const n=5; var x,i,s:real; begin s:=0; for i:=1 to n do begin readln(x); s:=s+x; end; writeln(’Сумма равна ’,s); end.

Vzorr · Answer

Код исправленной программы прикреплен во вложении.

Результат: Сумма равна 2639

Если чисел будет 10, нужно изменить значение константы n на 10. Во второй строке:

const n=10;

Вычислить сумму N целых чисел, вводимых с клавиатуры Program P1; const n=5; var x,i,s:real; begin s: