Определите, что будет напечатано в результате выполнения следующего алгоритма представленного на алгоритмическом языке. алг з2 цел s, k нач s:=0; k:=0 нц ПОКА s<=121 s:=s+11; k:=k+1 кц вывод k кон

алг з2

цел s, k // ввод переменых

нач

s:=0; k:=0 // задали их значение

нц ПОКА s<=121 //пока S меньше либо равно 121, выполняем строчки до КЦ

s:=s+11; k:=k+1

кц // s=132 k=12

вывод k k=12

кон

Вывод число 12

Объяснение:

нц ПОКА s<=121

s:=s+11; k:=k+1

кц

s=0 k=0

s=11 k=1

11<=121

s=22 k=2

22<=121

s=33 k=3

33<=121

s=44 k=4

44<=121

s=55 k=5

55<=121

s=66 k=6

66<=121

s=77 k=7

77<=121

s=88 k=8

88<=121

s=99 k=9

99<=121

s=110 k=10

110<=121

s=121 k=11

121<=121

s=132 k=12

Число 1915 не может быть ре­зуль­та­том ра­бо­ты автомата, по­сколь­ку число 19 не­воз­мож­но по­лу­чить сло­же­ни­ем двух цифр.
Число 20 не может быть ре­зуль­та­том ра­бо­ты автомата, по­сколь­ку по­лу­чен­ные два числа за­пи­сы­ва­ют­ся друг за дру­гом в по­ряд­ке не­убы­ва­ния.
Число 101 не может быть результатом работы автомата, поскольку первая его часть − 1, а вторая − 01 − это не число.
Число 1213 может быть ре­зуль­та­том ра­бо­ты автомата, в этом слу­чае ис­ход­ное число могло быть 6667.
Число 1312 не может быть ре­зуль­та­том ра­бо­ты автомата, по­сколь­ку по­лу­чен­ные два числа за­пи­сы­ва­ют­ся друг за дру­гом в по­ряд­ке не­убы­ва­ния.
Число 312 может быть ре­зуль­та­том ра­бо­ты автомата, в этом слу­чае ис­ход­ное число могло быть 2166.
Число 1519 не может быть ре­зуль­та­том ра­бо­ты автомата, по­сколь­ку числа за­пи­сы­ва­ют­ся в по­ряд­ке неубывания, а число 19 не­воз­мож­но по­лу­чить сло­же­ни­ем двух цифр.
Число 112 может быть ре­зуль­та­том ра­бо­ты автомата, в этом слу­чае ис­ход­ное число могло быть 1057.
Число 1212 может быть ре­зуль­та­том ра­бо­ты автомата, в этом слу­чае ис­ход­ное число могло быть 6666.

ответ: 4.

program Number3;

var

 A: array [1..3] of Integer;             // массив для трех чисел

 i, c, s: Integer;

begin

 WriteLn ('Введите три числа: ');

 Read (A [1], A [2], A [3]);             // Ввод трех чисел с клавиатуры

 c := 0;

 for i := Low (A) to High (A) do begin   // подсчет количества положительных чисел

   if A [i] > 0 then

     c := c + 1;

 end;

 if c >= 2 then begin                    // если положительных хотя бы 2, то

   WriteLn ('Новые значения чисел: ');

   for i := Low (A) to High (A) do begin

     if (A [i] mod 2) > 0 then           // увеличиваем нечетные на 1

       A [i] := A [i] + 1;

     Write (A [i], ' ');                 // выводим их на дисплей

   end;

 end else begin

   s := 0;

   for i := Low (A) to High (A) do       // находим сумму

     s := s + A [i];

   WriteLn ('Сумма всех чисел = ', s);   // выводим сумму на дисплей

 end;

 ReadLn;

 ReadLn;

end.

Объяснение: комментарии к программе