Var
a,b,c,d:real;
begin
write('Введите A=');read(a);
write('Введите B=');read(b);
write('Введите C=');read(c);
D:=sqr(b)-4*a*c;
if D<0 then begin
writeln('D=',D,' ', 'Нет корней');end;
if D=0 then begin
writeln('D=',D,' ', 'x1=', -b/(2*a));end;
if D>0 then begin
writeln('D=',D,' ','x1=',(-b-sqrt(d))/(2*a));
writeln('D=',D,' ','x2=',(-b+sqrt(d))/(2*a));
end;
end.
var a,a12,a1,a2,a3,s: integer;
begin
readln(a);
a1:=a div 100;
a12:=a mod 100;
a2:=a12 div 10;
a3:=a12 mod 10;
s:=a1+a2+a3;
writeln(s);
end.
a1-первое число трехзначного числа, a2-второе,a3-третье, a12-вторые два числа
это ТЕГИ Они задают форматирование
текста.
Способ без использования архиватора:
t = I / v
t = (80 * 2^23) / 2^22 = 160 с
Способ с использованием архиватора:
Найдём 70 процентов от исходника.
0.7 * 80 * 2^23 = 56 * 2^23
(56 * 2^23) / 2^22 = 112с
На сжатие требуется 23 секунды, на распаковку еще 12, 122 + 23 + 12 = 147
Ответ: А147