Написать решение Программ в ПАСКАЛЕ
1. Дан круг радиуса R. Если радиус больше 10, найти площадь круга, иначе вывести радиус без изменений.
2. Даны координаты двух точек на числовом луче. Сравните значение координат и выведете сообщение о том какая точка дальше от 0.
1.
program z1;
var r:real;
begin
write ('Введите радиус круга ');
readln (r);
if r>10 then write ('Площадь круга ',r*r*3.1415926:0:3)
else write ('Радиус круга ',r)
end.
2.
program z2;
var x1,x2:real;
begin
write ('Введите координаты двух точек на числовом луче ');
readln (x1,x2);
if abs(x1)>abs(x2) then write (x1,' дальше от 0 ')
else if abs(x1)<abs(x2) then write (x2,' дальше от 0 ')
else write ('Точки одинаково удалены от 0 ')
end.