СПАМ БАНЮ 2. Сколько раз выполнится цикл и чему будет равно значение переменной а после выполнения цикла? - id1856009620200105 от Yar4ik03 05.01.2020 13:45

Question

Информатика: СПАМ БАНЮ 2. Сколько раз выполнится цикл и чему будет равно значение переменной а после выполнения цикла? a) a := 6; b := 8; while a b do a := a+1; b) a := -4; b := -2; while a b do a := a+b; c) a := 4; b := 6; while a b do a := a+1; d) a := 4; b := 6; while a b do a := a - b; e) a := 14; b := 16; while a b do a := a - 1;

Yar4ik03 · Accepted Answer

Const N1 = 5;
N2 = 5;
var a: array [0..N1, 0..N2] of integer;
b: array [0..N1*N2] of integer;
i, j, n: integer;
begin
for i:=0 to N1 do {Заполнение массивы случайными числами}
for j := 0 to N2 do
a[i, j] := random(9999);
for i:=0 to N1 do {Основная часть, проверка и заполнение второго массива}
for j := 0 to N2 do
if (a[i, j] mod 2 = 0) then
begin
b[n] := a[i, j];
n := n + 1;
end;
for i:=0 to n do {Вывод полученных чисел}
writeln(b[i]);
end.

MOGZ ответил