Помогите пожалуйста 1) Дан Радиус найти длину окружности и площадь…

Question

Помогите пожалуйста 1) Дан Радиус найти длину окружности и площадь круга 2) даны 2 числа найти среднее арефметическое и среднеегеометрическое

Answer 1

82

andreev

26 февраля 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: