Var
p, r: real;
f: Text;
begin
Assign(f, 'input.txt');
Reset(f);
read(f, p);
Close(f);
r := p - 0.1 * p;
r := r + 0.1 * r;
writeln(r:0:2)
end.
Тестовое решение:
9.90
Var a,b,c,max,min:integer;
begin
read(a,b,c);
max:=c;
min:=c;
if min>a then min:=a else if min>b then min:=b;
if max<a then max:=a else if max<b then max:=b;
write(min,max);
end.
ні, не завжди
Все залежить від :
-розміру файла,
-найстройкі корзини,
- звідки видаляеця інформація.
Program maxx;
var ocenka,sdal,nesdal,k,i:integer;
begin
writeln('введите кол-во оценок');
readln(k);
sdal:=0;
nesdal:=0;
for i:=1 to k do
begin
readln(ocenka);
if ocenka>2
then sdal:=sdal+1;
else nesdal:=nesdal+1;
end;
writeln(sdal);
writeln(nesdal);
<span>end.</span>
T=t(0) +T
t(0)=(512*8*1024)/218=19239.9 сек
T=(5*1048576*8)/212=197844.528 сек
t=217084 сек