Задать вопрос Регистрация
Помочь другим

  • Запишите на языке Паскаль программу, соответствующую приведённой ниже блок-схеме и определить, что вычисляет данная программа:

     

    question img

Ответы 1

  • var n,s : integer;

    begin

    readln(n);

    if n <> 0 then

       begin

          s:=s+n;

          readln(n); 

       end

    else writeln(s);

    readln; 

    end.это программа позволяет найти сумму вводимых чисел, но если ввести ноль, то числа перестанут  запрашиваться и на экран выведеться сумма чисел, вводимых до ноля. 

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

Еще вопросы

Топ пользователей

Войти через Google

 или

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

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

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