Абакан,
абак - древние счеты
Var
a,b:integer;
begin
a:=0;
b:=0;
//Вывод через while
while a<>10 do
begin
inc(a);
write(a,' ');
end;
writeln('');
//Вывод через repeat
repeat
begin
inc(b);
write(b,' ');
end;
until b=10;
<span>end.</span>
Восприятия знаков-обоятельную информацию
вкусовых ощющений-осязательную информацию
световых сигналов-тактльную иннформацию
звуковых сигналов- зрительную информаию
Формула нахождения объема закодированного звука
A = D * i * t * c (D - частота дискретизации, i - глубина бит/разрядность, t - время, c - кол-во каналов)
Приводим единицы измерения
D = 64.0 Гц (возможно тут описка, обычно 64 кГц)
t = 320 c
A = D * i * t * c = 64.0 * 64 * 320 * 1 = 1310720.0 бит = 160.0 Kбайт = 0.15625 Мбайт
Вроде бы вот так
program nomer;
var x,s,i:integer;
begin
for x:=10 to 99 do
begin
if (x mod 5)=0 then s:=s+x;
end;
writeln(s);
end.