program raf105;
const
n = 3;
var
a:array[1..n,1..n] of integer;
i,j:integer;
x:boolean;
begin
for i:=1 to n do
begin
writeln('Введите три элемента строки №',i,' по очереди');
for j:=1 to n do
readln(a[j,i]);
end;
writeln('Номера строк в которых все элементы положительные и чётные:');
for i:=1 to n do
begin
if x
then writeln(i-1);
x:= true;
for j:=1 to n do
if x and (not(a[j,i]>0)) or (not((a[j,i] mod 2)=0))
then x:=false
end;
end.
<h3><em><u>Язык PascalABC</u></em></h3>
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var p:=1;
while n>0 do begin
var d:=n mod 10;
if d.IsOdd then p*=d;
n:=n div 10
end;
Writeln('Произведение нечетных цифр числа равно ',p)
end.
<u>Пример</u>
n= 53892
Произведение нечетных цифр числа равно 135
Ответ: В двоичной 1011010001, в восьмеричной 1321, в шестнадцатиричной 2D1.
Объяснение:
44.1 Кгц=44100 гц
5 мин=300сек
44100*16*300=216680000бит/8=26460000 байт/1024=25839,84 Кб/1024=25,23 Мб