Первый вариант:
Var
a,b:real;
Begin
Write('Введите два числа: ');ReadLn(a,b);
if a>b then Write(a-b)
else Write(b-a)
End.
Второй вариант:
Var a,b:real;
Begin
Write('Введите два числа: ');ReadLn(a,b);
WriteLn(Abs(a-b))
End.
Program qfdw;
uses crt;
Type
vershina=Record
Tochka:string;
X,Y:real;
end;
ps=File of vershina;
Var f:ps;
z,a,b,c:vershina;
i:integer;
Begin
assign(f,'1.dat');
rewrite(f);
writeln('Введите вершины треугольника и их координаты: ');
for i:=1 to 3 do
begin
writeln(i,'-я вершина');
write('буква: ');read(z.tochka);
write('X=');read(z.x);
write('Y=');read(z.y);
write(f,z);
end;
Close(f);
assign(f,'1.dat');
reset(f);
read(f,a);
read(f,b);
read(f,c);
close(f);
writeln('Cтороны треугольника:');
writeln(a.tochka,b.tochka,' = ',sqrt((a.x-b.x)*(a.x-b.x)+(a.y-b.y)*(a.y-b.y)):5:2);
writeln(c.tochka,b.tochka,' = ',sqrt((c.x-b.x)*(c.x-b.x)+(c.y-b.y)*(c.y-b.y)):5:2);
writeln(a.tochka,c.tochka,' = ',sqrt((a.x-c.x)*(a.x-c.x)+(a.y-c.y)*(a.y-c.y)):5:2);
end.
Если считать, что скорость передачи данных в канале связи постоянна, то соотношение между временем передачи неупакованного и упакованного файла будет равно соотношению размеров передаваемых файлов.
Передача упакованного файла происходит за 20-10=10 секунд (мы вычли время на упаковку и распаковку). А передача неупакованного происходит за 1 минуту 20 с, т.е. за 1 х 60 + 20 = 80 секунд.
80 / 10 = 8. Неупакованный файл передается медленнее в 8 раз, следовательно, он в 8 раз больше, чем упакованный.
Тогда упакованный файл имеет размер 24 МБ / 8 = 3 МБ
<u><em>Ответ:</em></u> 3 МБ
D. Добавляет готовые шаблоны таблиц.
Ответ: D.