Информатика 9 класс. найти длину окружности и S круга. Сделать проверку ввода. Спасибо!!!

1

Ответы и объяснения

2013-04-07T20:55:48+04:00

1)

const t=3.14;
var R,P:real;
begin
writeln('Введите радиус окружности');
readln(R);
P:=2*3.14*R;
writeln('P=',P);
readln;
end.

 

2)const t=3.14;
var R,S:real;
begin
writeln('Введите радиус окружности');
readln(R);
S:=3.14*sqr(R);
writeln('S=',S);
readln;
end.