Ответ:
Объяснение
import math
x1 = float(input("Введите x1 - "))
y1 = float(input("Введите y1 - "))
x2 = float(input("Введите x2 - "))
y2 = float(input("Введите y2 - "))
L = math.sqrt((x2-x1)**2+(y2-y1)**2)
print("L = " + str(L))
Pascal
var
x,y : integer;
begin
readln (x,y);
if (x=0) or (y=0)
then
begin
if x = 0 then
writeln ('Точка лежит на оси y');
if y = 0 then
writeln ('Точка лежит на оси x')'
end
else
begin
if (x>0) and (y>0) then
writeln ('Точка находится в первой четверти');
if (x<0) and (y>0) then
writeln ('Точка находится во второй четверти');
if (x<0) and (y<0) then
writeln ('Точка находится в третей четверти');
if (x>0) and (y<0) then
writeln ('Точка находится в четвертой четверти');
end;<span>
end.</span>
1) время необходимое для передачи файла из пункта А в пункт Б - 80 сек
2) время необходимое для передачи файла из пункта Б в пункт В - 640 сек
3) 13 минут это 780 сек
4) 80+640 = 720 сек
5) 780-720 = 60 сек - это пауза на пункте Б
в задаче спрашивается Через какое время в секундах началась передача данных в пункте Б. следовательно 80+60=140
===== PascalABC.NET =====
- 1 -
begin
foreach var x in Seq(2.1, 3.3, 4.125) do
Writeln(x:5:3, Sqrt(Abs(Sqr(Sin(x)) - Cos(x))) / (x - 1):13:9)
end.
- 2 -
begin
Writeln('Вычисление объема цилиндра.');
Writeln('Введите исходные данные:');
var r := ReadReal('Радиус основания (см) ---');
var h := ReadReal('Высота цилиндра (см) ---');
Writeln('Объем цилиндра: ', Pi * r * r * h:0:2, ' куб.см.')
end.