Задание:
Помогите пожалуйста 1) Дан Радиус найти длину окружности и площадь круга 2) даны 2 числа найти среднее арефметическое и среднеегеометрическое
Решение:
1) var a,b: real; const pi=3,14; begin writeln ('Укажите радиус окружности '); readln (a); writeln ('Длина окружности равна ',2*pi*a); writeln ('Площадь круга равна ',pi*sqr (a); readln; end. 2) var a,b: real; begin writeln ('Введите первое число'); readln (a); writeln ('Введите второе число'); readln (b); writeln ('Среднее арифметическое этих чисел равно ', (a+b) /2); writeln ('Среднее геометрическое этих чисел равно ',exp (ln (a*b)*1/2); end.
Знаете другой ответ?