Всё надо сделать на паскале.

a) x^5 b) x^6 c) x^8 d) x^9 e) x^10

2 задание:

Дан диаметр окружности d. Найти его длину (L=П*d)

3 задание:

Найти длину окружности L и площадь круга S заданного радиуса R: L=2πR, S = πR^2

4 задание:

Даны 2 числа a и b. Найти их среднее арифметическое

5 задание:

Даны 2 неотрицательных числа a и b. Найти их среднее геометрическое (квадратный корень из их произведения)

6 задание:

Найти расстояние между двумя точками с заданными координатами x1 и x2 на числовой оси: |x2 - x1|.

Буду очень благодарен.

Question

Информатика

Евдокея

14 мая, 03:46

Всё надо сделать на паскале.

a) x^5 b) x^6 c) x^8 d) x^9 e) x^10

2 задание:

Дан диаметр окружности d. Найти его длину (L=П*d)

3 задание:

Найти длину окружности L и площадь круга S заданного радиуса R: L=2πR, S = πR^2

4 задание:

Даны 2 числа a и b. Найти их среднее арифметическое

5 задание:

Даны 2 неотрицательных числа a и b. Найти их среднее геометрическое (квадратный корень из их произведения)

6 задание:

Найти расстояние между двумя точками с заданными координатами x1 и x2 на числовой оси: |x2 - x1|.

Буду очень благодарен.

+4

Ответы (1)

Знаете ответ?

Димуша · Answer 1

№2

var

d, l: real;

begin

readln (d) ;

l:=pi*d;

writeln (l) ;

end.

#3

var

r, l, s: real;

begin

readln (r) ;

l:=pi*2*r;

s:=pi*sqr (r) ;

writeln (r, s) ;

end.

#4

var

a, b: integer;

s: real;

begin

readln (a, b) ;

s: = (a+b) / 2;

writeln (s) ;

end.