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

+ 0 -

лфкщдштф2003

17 авг. 2014 г., 0:42:43 (9 лет назад)

var

n,s: integer;

begin

s:=0;

readln(n);

while(n<>0) do

begin

s:=s+n;

readln(n);

end

writeln(s);

end.

Вычисляет сумму входящих слогаемых, если n <> 0.

+ 0 -

Malviina

17 авг. 2014 г., 2:44:58 (9 лет назад)

Оператор s:=s+n в данном случаи определяет суммы последовательности чисел НЕ равных 0.(Знак <> обозначает "НЕ РОВНО")

Program q1;

uses crt;

var n,s:integer;

begin

   clrscr;                             {очисти экран}

   textcolor(lightgreen);   {Придай тексту светло-зелёный цвет}

   write('vvedi N');              {Выведи на экране 'vvedi N')

   readln(n);                        {ВВеди n}

   s:=0;                                {Ячейке S присвой 0}

   while n<> do                   {Пока N не ровно 0 

                       begin                начни делать

                               s:=s+n;  s присвой его начальное значение + то число, которое мы вели

                               writeln('vvedi N');        

                                readln(n);               Вводим N

                       end;                                    Конец рабоиы цикла}

  writeln(s);                  {Выведи на экран S};

  readln;                        {показывай результат, пока не нажму кнопку ввода(enter}

end.   {Конец программы}

+ 0 -

данил

10 дек. 2018 г., 15:59:38 (5 лет назад)

спасибо