1) 128000:8=16000 байт/c
2) 625*1024=640000 байт
3) 640000:16000=40 с - t1
4) 512000:8=64000 байт/с
5) 640000:64000=10 с - t2
6) 40-10=30
Ответ на 30 с
Uses crt;
var a,b,c,x1,x2,x,D:real;
begin
writeln('Введите коэффициенты уравнения');
writeln;
write('a= ');
readln(a);
write('b= ');
readln(b);
write('c= ');
readln(c);
D:=b*b-4*a*c;
if D<0 then
writeln('Корней нет')
else
begin
if D=0 then
x:=-b/(2*a);
writeln ('x= ',x);
else
begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
writeln ('x1= ',x1);
writeln ('x2= ',x2);
end;
end;
end.
Http://inflib.ru/index2.php?id=1128&Itemid=25&option=com_content&page=0&pop=1&task=view
var s:string;
i:integer;
begin
readln(s);
for i:= length(s) downto 1 do
if s[i]=',' then delete (s, i, 1);
writeln(s);
end.