Программа запрашивает 4 числа и проверяет, сколько в них равны 10.pascalabc

115

119

Посмотреть ответы 1

Ответы на вопрос:

NCTzen184

Информатика

4,6(35 оценок)

Var b: array[1..20] of biginteger; pr, pr1, raz: biginteger; begin pr : = 1; pr1 : = 1; for var i : = 1 to 20 do begin b[i] : = random(100) + 10; write(b[i]+' '); if b[i] mod 2 = 0 then pr : = pr * b[i]; if b[i] mod 2 < > 0 then pr1 : = pr1 * b[i]; raz : = pr - pr1; end; writeln(); writeln('разница равна ', raz); end.