Program series var i , n : integer: x , s : real ; begin write ('Ввести число n:');...

Question

Program series var i , n : integer: x , s : real ; begin write ('Ввести число n:'); readln (n): s:=0; for i:= 1 to n do begin write ('Ввести число x : '): readln (x); s: = s+x; end: writeln ('Сумма чисел - ' ); end. пишет что ошибка в первой и второй строке Program2.pas(2) : Встречено ':', а ожидалось ';'

Answer 1

program series  

var i , n : integer;

var x , s : real ;  

begin  

write ('Ввести число n:');  

readln (n) ;

s:=0;  

for i:= 1 to n do  

begin  

write ('Ввести число x : ');

readln (x);  

s: = s+x;  

end:  

writeln ('Сумма чисел - ' );  

end.

Comments

исправила)) скопируй

---

спасибо большое)

Answer 2

program series;

var i,n:integer;

x,s:real;

begin

write ('Ввести число n: ');

readln (n);

s:=0;

for i:= 1 to n do

begin

write ('Ввести число x: ');

readln (x);

s:=s+x

end;

writeln ('Сумма чисел - ',s)

end.

Comments

Там был real, а ты перевёл в integer. Зачем?

---

Чтобы сохранить после запятой знаки, нужно было n в real поставить.

---

А не бред^. Всё равно в real не нужно было ставить всё.

---

^бред х2. Я хочу спать. В integer не нужно было перевод всё, а оставить как есть.