Var
a: array [1..N,1..N] of real;
i: integer;
j: integer;
kol: real;
begin
// ввести значения массива a вашим любимым способом
for i:=1 to N do
for j:=1 to N do
if a[i,j]=0 then
kol=kol+1;
write('Количество нулей: ', kol);
end.
Обратно как не знаю но я перевела из десятичной в семирисную. ответ получился 1155,32 в семирчной системе счисления
Задание 6:
Ответ - 3( Сместиться на 16; -17)
Имя, фамилия, отчество, адрес, телефонный номер и т. д.
var i:integer;
begin
writeln('Загадайте натуральное четное число.');
writeln('<span>Прибавьте к нему 4. Уменьшите на 6. Поделите на 2. Что у вас получилось?');</span>
<span>readln(i);</span>
<span>writeln('Вы загадали число ', i*2+2);</span>
<span>end.</span>