Var i:integer;
begin
for i:=10 to 99 do
if (i mod 10)*(i div 10)=i then writeln(i);
end.
---
Но насколько мне известно, среди двузначных чисел таковых не имеется.
Var b:integer;
a: array [0..9] of integer;
begin
randomize;
for b:=0 to 9 do begin
read(a[b]);
end;
for b:=4 downto 0 do begin
write(a[b],' ');
end;
writeln('');
for b:=6 to 9 do begin
write(a[b],' ');
end;
writeln('');
for b:=0 to 9 do begin
if ((b=0)or (b=8)) then write(a[b],' ');
end;
writeln('');
end.
ASP можно написать программы скрипты
36864
Объяснение:
8х=36 кб - так же переводим в биты 36кб=36*1024*8=294912 бит
8х=294912
х=294912 : 8
х=36864
Информационный объем аудиофайла I=t*n*i*k, где t- время звучания (с.), n- частота дискретизации (Гц), i- глубина кодирования звука (бит), k- количество каналов записи.
I=10*48000*16*2= 15360000 бит = 1875 Кбайт