1,3 Мбайт = 1,3*1024 Кбайт = 1,3*1024*1024 байт = 1,3*1024*1024*8 бит
1 мин = 60 сек
частота дискретизации = (1,3*1024*1024*8)/(60*16) ≈ 11360 Гц
Var
Summ,Mat,Fizik,Geogr,Biolog,Fizra:integer;
Begin
Writeln('Enter rating');
Readln(Mat,Fizik,Geogr,Biolog,Fizra);
Summ:=Mat+Fizik+Geogr+Biolog+Fizra;
Writeln(Summ);
end.
Это скрипт bash (командная оболочка UNIX).
Пицца делится на 2*<span>N </span>
Var
c,k:real;
begin
Write('Введите C и K: ');
Readln(c,k);
If Int(c/k)=0 then Writeln(c-k)
else Writeln(c+k)
end.