написать в программе паскаль
5-9 класс
|
var x,y,dist:real;
begin
readln(x,y);
dist:=sqrt(x*x+y*y);
readln(x,y);
x:=sqrt(x*x+y*y);
if (x>dist) then writeln('2-я точка ближе')
else if (x<dist) then writeln('1-я точка ближе')
else writeln('Одинаково')
end.
Другие вопросы из категории
символов можно получить с помощью одного байта (8 бит)?
соответствующему элементу исходного массива. посчитайте кол- во неизменившихся эелементов и найдите в новом массиве максимальный о абсолютной величине отрицательный элемент. выведите на экран исходные и полученные результаты (ПОМОГИТЕ ПОЖЛСТ ОЧЕНЬ НАДО)
эмоциональности. Прочитайте истории возникновения поговорок и опишите современные ситуации, моделями которых они служат.
Читайте также
Вывести сначала положительные числа из отрезка [a;b], а потом отрицательные числа из отрезка [a;b] и количество положительных и отрицательных чисел из отрезка [a;b]
вычислить и напечатать результат выражения z при c=15, d =5
z=5(c+2dв кубе)дробь c+d