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

1234554321111 1234554321111    1   19.05.2019 14:50    0

Ответы
olesyapurzikova olesyapurzikova  30.09.2020 23:13

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.

 

 

 

 

 

 

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика