const
n = 5; m = 5;
var
a: <em>array [0..m, 0..n] of shortint</em>;
i, b, c: <em>integer</em>;
begin
for i := 1 to m do
begin
for b := 1 to n do
begin
a[i, b] := random(-90, 0);
write(a[i, b]:4);
if (i = m) then
if (a[i, b] mod 4 = 0) then
c += 1;
end;
writeln(<em>(i = m) and (b = n)</em> ? ' ' + c : '');
end;
writeln();
<span>end.</span>
УРАВНЕНИЕ
тура (без 1 буквы) - ура
в н е
книга (без 1 буквы и 2-х последних букв) - ни
е
79:2=39 1
39:2=19 1
19:2=9 1
9:2=4 1
4:2=2 0
2:2=1 0
1:2=0 1
ответ:1001111
1) начало
2) вводится целое число n
3) если остаток от деления n на 2 равен 0, то печатается сообщение ' 'Число чётное', иначе на печать выдаётся сообщение 'Число нечётное'
4) конец
В восьмиричной: 150.32
В шестнадцатиричной: 68.88