Question

Написать решение Программ в ПАСКАЛЕ
1. Дан круг радиуса R. Если радиус больше 10, найти площадь круга, иначе вывести радиус без изменений.
2. Даны координаты двух точек на числовом луче. Сравните значение координат и выведете сообщение о том какая точка дальше от 0.

Answer 1

Ответ:

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.