• Вычислить сумму 10 чисел введённых с клавиатуры (на паскале). Заранее спасибо.

Ответы 2

  • var i,sum,x:integer;

    begin

     for i:=1 to 10 do

    begin

    read(x);

    sum:=sum+x;

    end;

    writeln(sum);

    end.

    • Автор:

      oscarc0nt
    • 7 лет назад
    • 0
  • uses crt; 

     

    var i,sum,x:integer;begin

     

    clrscr for i:=1 to 10 dobeginread(x);sum:=sum+x;end;writeln('сумма ');end.

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

Войти через Google

или

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

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

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