profile
Опубликовано 6 лет назад по предмету Информатика от sanato

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

  1. Ответ
    Ответ дан xcommands

    var i,sum,x:integer;

    begin

     for i:=1 to 10 do

    begin

    read(x);

    sum:=sum+x;

    end;

    writeln(sum);

    end.

  2. Ответ
    Ответ дан wraiter

    uses crt; 

     

    var i,sum,x:integer;

    begin

     

    clrscr

    for i:=1 to 10 do

    begin

    read(x);

    sum:=sum+x;

    end;

    writeln('сумма ');

    end.

Самые новые вопросы