Переделать программу под оператор read program n_1; const pi= 3.14; bar= r,c,s: real begin r: =5.4; c: = 2*pi*r; s: =pi*r*r; writeln ('c=', c: 6: 4); writeln ('s=', s: 6: 4) end
2547456
3
25.08.2019 10:50
2
Другие вопросы по теме Информатика
Аниса2111
24.09.2019 00:40
MrSasha1111
04.06.2019 05:40
АтинаАссорти
08.01.2022 15:15
vhbhvgh
16.07.2019 17:01
AlvantoBerlando
25.11.2020 01:31
Ватрушкасмаком
25.11.2020 01:33
loloh333
25.11.2020 01:33
djdkdksDkskd
04.05.2020 20:08
Дамирка2288
04.05.2020 20:07
Популярные вопросы
- Напишите лексическое значение и грамматическое значение слов : говорить,...
2 - Что относят к вегетативным органам?...
1 - 1)распределение электронов по энергетическим уровням в атоме )2)8)4....
2 - Допишите уровнение в молекулярной и ионной форме: caco3+hcl cu (oh)2+hno3...
2 - Найти катеты прямоугольного треугольника , если его гипотенуза равна...
3 - Вычислите площадь прямоугольника, у которого одна из сторон 8 см,...
1 - Кслову обязательно в приставки проверочное слово...
3 - Бросают кубик, грани которого окрашены в коричневый и зеленый цвет...
2 - Укажите натуральное число которое в 7 раз больше цифр его единиц...
3 - 27т 495кг + 9т 780кг ; 19кг 450г + 7кг 80г ; 28м 75см + 143м 87см...
1
var r,c,s: real;
begin
readln(r);
c:= 2*pi*r;
s:=pi*r*r;
writeln ('c=', c:6:4);
writeln ('s=', s:6:4)
end.
Пример:
5
c=31.4159
s=78.5398