Ну мы в школе по этой программе с котом <span>на ярлыке </span>роботали
Var
y,x: integer;
begin
read(x);
y:=(5-x)^(2/2);
write(y);
end.
Как вариант - перевести в десятичную систему счисления и поделить
Const
n = 15;
var
a: array[1..n, 1..n] of integer;
i, j: integer;
HasNull: Boolean;
begin
Randomize;
writeln('Исходная матрица');
HasNull := False;
for i := 1 to n do
begin
for j := 1 to n do
begin
a[i, j] := Random(100) - 50;
if a[i, j] = 0 then HasNull := True;
write(a[i, j]:5);
end;
writeln
end;
if HasNull then writeln('Матрица имеет нулевые элементы')
else writeln('Матрица не имеет нулевых элементов')
end.
Тестовое решение:
Исходная матрица
16 23 -50 14 -44 15 -28 8 40 -43 -4 31 -11 -24 -15
31 -37 -42 2 15 23 -8 -19 14 -35 -5 -30 41 11 -18
-44 -3 30 -34 40 39 -7 -8 -6 -16 29 -11 -43 39 28
5 37 42 46 13 -27 -39 2 -19 -45 -27 -8 -14 -2 11
-6 -20 47 8 -49 48 -50 -28 -15 -4 -13 20 14 -32 35
-17 -16 -8 35 10 7 -22 45 47 -41 45 45 -2 -39 17
-3 -43 43 32 39 -2 -9 -1 37 29 4 15 7 0 -24
2 -4 -17 -5 21 38 49 0 37 -47 -34 -15 -50 -2 -45
-47 2 -40 18 48 -20 27 31 -21 -13 42 35 4 -45 -44
42 20 -6 21 6 -2 11 -48 -10 28 -3 6 -45 29 22
-38 -9 -50 32 26 -49 4 38 1 46 24 15 -46 -42 29
-47 -5 -6 31 -39 -5 40 -21 41 7 -9 -1 20 39 1
23 21 -48 6 -26 0 35 22 -21 -46 -12 32 42 24 32
32 7 44 11 25 -49 -38 -26 17 -24 -28 -38 -42 -25 -16
2 33 48 -50 -27 -47 13 -2 34 -22 -32 23 -35 26 22
Матрица имеет нулевые элементы
1) (X>0) ∨(Y>0) ∨ (Z>0)
2) (X>0)∧(Y≤0)∧(Z≤0) ∨ (Y>0)∧(X≤0)∧(Z≤0) ∨ (Z>0)∧(X≤0)∧(Y≤0)
3) (X>10)∧(Y≤10)∧(Z≤10) ∨ (Y>10)∧(X≤10)∧(Z≤10) ∨
(Z>10)∧(X≤10)∧(Y≤10)
4) (X≠104) ∧ (Y≠104) ∧ (Z≠104)
