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

0 голосов
16 просмотров

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


Информатика (22 баллов) | 16 просмотров
Дан 1 ответ
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)

else write ('Точки одинаково удалены от 0 ')

end.

(2.2k баллов)