Написать программы а.Найти сумму чисел x=a+b+c; б.Найти длину окружности и площадь...

Question

Написать программы а.Найти сумму чисел x=a+b+c; б.Найти длину окружности и площадь круга, с радиусом вводимым с клавиатуры..

Answer 1

Ответ:

pascal

Объяснение:

a)

program summa;

var

 a, b, c, x: real;

begin

 Write('Введите три числа a, b и c >> ');

 ReadLn(a ,b, c);

 x := a + b + c;  

 WriteLn('Сумма чисел равна ', x);

end.

б)

program circle;

var

 r, c, s: real;

begin

 Write('Введите радиус окружности >> ');

 ReadLn(r);

 c := 2 * pi * r;

 s := pi * sqr(r);

 WriteLn('Длина окружности равна ', c:6:3);

 WriteLn('Площадь круга равна ', s:6:3);

end.