• Вводить числа в переменную х. пока не будет введён 0.На печать ввыдать сумму введённых чисел и сами числа 

Ответы 1

  • label nach;

    uses crt;

    var x,s:integer;

    begin

    s:=0;

    repeat

    nach:

    write('vvedite x=');read(x);

    if (x!=0) then begin writeln(x); s:=s+x; goto nach;end else s:=s+x;

    until (x=0);

    writeln('summa ravna=',s);

    end.

    • Автор:

      juvenal
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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