Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

6. Вычислить площадь круга и длину окружности по введенному значению радиуса. 7. Вычислить площадь S и периметр L эллипса по введенным значениям полуосей a и b:

Ответ оставил Гость

//Pascal ABC.NET v3.1 сборка 1172

//6
Var
 r:integer;
begin
 readln(r);
 writeln(S=,pi*sqr(r));
 writeln(L=,pi*2*r);
end.


//7

Var
 a,b:integer;
begin
 read(a,b);
 writeln(S=,pi*a*b);
 writeln(L=,pi*(a+b));
end.