Решебник
- Урок 11. Задание 3.
- ...
- Урок 13. Задание 5.
- Урок 13. Задание 7.
- Урок 13. Задание 8.
- Урок 13. Задание 9.
- Урок 14. Задание 1.
- Урок 14. Задание 3.
- Урок 14. Задание 4.
Program kryg;
const pi=3.14;
var r,s,l:real;
begin
r:=14;
l:=r*2*pi;
Writeln('Длина окружности радиусом ',r,' равна ',l);
s:=sqr(r)*pi;
Writeln('Площадь круга радиусом ',r,' равна ',s);
End.
const pi=3.14;
var r,s,l:real;
begin
r:=14;
l:=r*2*pi;
Writeln('Длина окружности радиусом ',r,' равна ',l);
s:=sqr(r)*pi;
Writeln('Площадь круга радиусом ',r,' равна ',s);
End.