НАДО НАПИСАТЬ ПРОГРАМКУ ПО ИНФЕ 1) Найти сумму четных цифр и произведение нечетных заданного целого числа x
2) Найти кол-во четных и нечетных цифр заданного целого числа x
3) Вывести удвоенное число x, если кол-во четных цифр больше нечетных заданного целого числа x и квадрат этого числа, если наоборот, т. е. нечетных больше, чем четных цифр
4) определить, сколько раз в заданном числе присутствует цифра 1
// Внимание! Если программа не работает, обновите её версию!
begin
var b:=MatrRandom(4,4,-5,5); b.Println(3);
var p:=1;
var s:=0;
Write('Элементы главной диагонали: ');
for var i:=0 to 3 do
for var j:=0 to 3 do
if i<j then p*=b[i,j]
else
if i>j then s+=b[i,j]
else Write(b[i,j]:3);
Writeln(Newline,'П=',p,', S=',s)
end.
Пример
-2 -1 -2 4
0 1 1 -3
0 1 5 5
3 4 3 2
Элементы главной диагонали: -2 1 5 2
П=-120, S=11