Var
o,em,bm:real;
x,x2:real;
a,b:real;
begin
o:=160;
bm:=40;
em:=120;
writeln('Введите цену бизнес класса ');
readln(x);
x2:=(x/2);//цена эконом класса
writeln('Непроданные бизнес класса =');
readln(a);
writeln('Непроданные эконом класса =');
readln(b);
bm:=bm*x;
em:=em*x2;
bm:=bm-a*x;
em:=em-b*x2;
o:=bm+em;
writeln ('Прибыль = ',o);
end.
program qq;
uses crt;
const pi=3.14;
var v,r,h,l,s:integer;
begin
clrscr;
writeln('введите r,h,l');
readln(r,h,l);
V:=trinc((pi*sqr(r)*h)/3);
S:=pi*r*l;
writeln('плщадь равна',p,' объем равен',v);
readln
end.
смотри в прграмме есть оператор функция trinc если училке не понравится то v:=((pi*sqr(r)*h)) div 3;
6мбит/с=6291456 бит/с
6291456*4=25165824 бит (общий объем того что передали)
16*512=8192 (вес одной страницы)
25165824/8192=3072 страниц
Ответ:не надо так делать на Олимпиаде....
Объяснение: все честно делали задания
458 =)
Делал через java... могу код скинуть если нужно