4 мин =4*60= 240секунд
F = 5120*240 = 5*1024 * 15*16 =75*2^14 бит =75*2 Кбайт=150 Кбайт
Const z = 2.3;var s,d,f,j: real;i:integer;beginj:=0.2;while j < 2.9 dobegins := 1.5*cos(j)*cos(j);writeln(j:4:2 ,s :9:6);j:= j +0.2;end;writeln;j:=0.2;while j < 2.9 dobegins := 1.8*z*j;writeln(j:4:2 ,s :12:6);j:= j +0.2;end;writeln;j:=0.2;while j < 2.9 dobegins := (j-2)*(j-2)+6;writeln(j:4:2 ,s :9:6);j:= j +0.2;end;writeln;j:=0.2;while j < 2.9 dobegins := 3 * sin(j)/cos(j);writeln(j:4:2 ,s :12:6);j:= j +0.2;end; <span>end.</span>
Делить байты на 1024. в 1 килобайте 1024 байт
Ответ:
var
a,x,b,c: real;
begin
write('Введите стоимость покупки = ');
readln(x);
a := x/100;
a := Trunc(a);
a := a*5;
b := x/50;
b := Trunc(b);
b := b*2;
c := x*0.03;
if (a>b)and (a>c)
then
writeln('RP')
else
if (b>a) and (b>c)
then
writeln('BB')
else
if (c>a) and (c>b)
then
writeln('MM')
else
writeln('Суммы равны, Алена выбирает <MM>')
end.