Задание:
Дан радиус окружности. Найдите длину окружности и площадь круга. Ооочень срочно плииз информатика
Решение:
Program Circle; Uses crt; const pi=3,14; var C,r,S: real; begin clrscr; write ('Введите радиус: '); readln (r); C=pi*2*r; S=2*pi*(sqr (r); writeln ('Площад круга равна: ',S); writeln ('Длина окружности равна: ',C); readkey; end.
Знаете другой ответ?