1)
program chik;
var i,j:integer;
begin
for i:=1 to 5 do
for j:=1 to 10 do
writeln(i:2,'*',j:2,'=',i*j:2);
<span>end.
</span>2)
program chik2;
var i,j:integer;
begin
for i:=1 to 9 do
for j:=1 to 8 do
if(i mod 2=1)and(j mod 2=0)then writeln(i:2,'*',j:2,'=',i*j:2);
end.
Качество звука обычно измеряется в размере информации за единицу времени. В данной задаче размер = 940 Кбайт, время = 10 секунд.
Качество = размер / время = 940 Кбайт / 10 секунд = 94 Кбайт / секунду = 752 Кбит / секунду.
Для сравнения: 320 кбит в секунду это максимальное качество для mp3.
752 Кбит / секунду похоже на аудио которое было сжато без потерь (качество информации не ухудшилось по сравнению с оригиналом).