• 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) : Встречено ':', а ожидалось ';'

Ответы 8

  • исправила)) скопируй
  • Там был real, а ты перевёл в integer. Зачем?
    • Автор:

      cedric
    • 6 лет назад
    • 0
  • Чтобы сохранить после запятой знаки, нужно было n в real поставить.
  • А не бред^. Всё равно в real не нужно было ставить всё.
    • Автор:

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

      saniya13
    • 6 лет назад
    • 0
  • спасибо большое)
  • 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.

  • 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.

  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years