Дан радиус R. Найдите площадь круга - Turbo Pascal
Формулировка задачи:
2. Дан радиус R. Найдите площадь круга.
Решение задачи: «Дан радиус R. Найдите площадь круга»
textual
Листинг программы
program odin;
var r,S:real;
begin
writeln('vvedite radius');
readln (r);
s:=pi*r*r;
writeln ('площадь равна=',s);
end.