14; 13; 18; 19.
Вот и всё!
Uses crt;
var xA,xB,yA,yB,D: real;Begin
clrscr;
write('Введите координаты точки A через пробел: ');
readln(xA,yA);
write('Введите координаты точки B через пробел: ');
readln(xB,yB); d:=sqrt(sqr(xA-xB)+sqr(yA-yB));
writeln;
writeln('Длина отрезака AB = ',d:0:3)
End.
Как только эта информация отчуждается от человека, она превращается из сведений (смысла, знания) в данные, и только если данные попадают к человеку, который знает закон (правила) интерпретации (придания смысла) данным, только тогда у адресата данные преобразуются в смысл.
Ответ:2175 кб
Объяснение: За 40 сек. Передается файл размером 1450 КБ, значит надо 1450:40, этим действием мы получим скорость соединения и эту скорость мы умножаем на 60 сёк и получаем 2175 КБ.!
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function F(n: integer):int64 :=
n <= 1 ? 1 : 2.To(n).Aggregate(int64(1), (p, q)-> p * q);
begin
Range(1, ReadInteger('n=')).Select(t -> F(t)).Sum.Println
end.
<h2>n= 10</h2><h2>4037913 </h2>