Program avia;
uses crt;
var
p:integer;
s,s2,pr,ch3:real;
begin
writeln('Стоимость билета 1 класса: ');
read(s);
writeln('Общее количество пассажиров: ');
read(p);
ch3:=(3*(p/4));// 3 четверти пассажиров
pr:=(s/100)*20;// 20% от стоимости
s2:=(ch3*s)+((p/4)*pr);
writeln('Всего заработает за рейс: ',s2);
end.
program cena;
uses crt;
var
k,a,b,m,obc:real;
begin
writeln('Цена за конфеты "Красная шапочка": ');
read(k);
writeln('Цена за конфеты "Алые паруса": ');
read(a);
writeln('Цена за конфеты "Воронежские": ');
read(b);
writeln('Цена за конфеты "Чародейка": ');
read(m);
obc:=0.5*k+0.2*a+0.1*b+0.25*m;
writeln('Всего ',obc,' руб.')
end.
I1 = 5 бит / 1 символ
i2 = 6 бит / 1 символ
6/5 = 1,2 раза.
В 1.2 раза различаются инф. объемы текстов.
<span>12 10 – 5 7 + * 7 – 2 * =
</span><span>2 5 7 + * 7 – 2 * =
</span>2 12 * 7 – 2 * =
24 7 -2 * =
17 2 * =
34
При условии, что подкаталог был создан в <span>D:\2013\Зима\, ответ 4.</span>
По данной программе выяснить ответ не представляется возможным потому, что в программе отсутствует описание основной процедуры (точки входа)