Ну если переводить в объем информации то получается 3е+9
Var
A,B,i:integer;
k:byte;
Begin
i:=0;
k:=0;
Repeat
Read(A);
i:=i+1;
if (i>2)and(i<5) then
Begin
B:=Abs(A);
if (9<B)and(B<100)and(B mod 10 = 2) then k:=k+1;
End;
Until (A = 0)or(i>=5);
if A<>0 then
Repeat
Read(A);
Until A = 0;
WriteLn(k)
End.
Сначала сам звуковой процессор, потом ЦАП (цифро-аналоговый преобразователь) и усилитель (доводит уровень до линейного). <span><span> </span></span>
Нельзя:
Есть, пить напитки.
Заходить с грязными руками.
Выключать компьютер часто.
Дергать за провода.
Шуметь и бегать по классу
находится в кабинете на перемене.
Запускать посторонние программы
Удалять, перемещать или переименовывать программы , папки, файлы.
BEGIN
writeln('Enter A number');
realdln(A);
writeln('Enter B number');
readln(B);
if (A<>B) then
begin
A:=A*5;
B:=B-5;
end else
begin
if ((A<0) and (B<0))
begin
A:=A*A;
B:=B*B
end;
end;
writeln(A, B);
END.