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.
Объяснение: комментарии к программе
алг з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