Решить задачу ** Паскале. Заданы площади круга S1 и квадрата S2. Определить поместится...

Question

Решить задачу на Паскале. Заданы площади круга S1 и квадрата S2. Определить поместится ли круг в квадрате. Задачу решить при

а) S1=70, S2=36,74

б) S1=0,86, S2=0,64

Квадрат поместится в круге, если диаметр окружности меньше или равен стороне квадрата. Диагональ квадрата и диаметр окружности найти из площади фигур. Результат вывести на экран.

Answer 1

Program nm13;
uses crt;
var S1,S2,d,a,diag:real;
begin
writeln('vvedi ploschad kruga i ploschad kvadrata');
readln(S1);
readln(S2);
d:=2*sqrt(S1/3.14);
a:=sqrt(S2);
diag:=2*sqrt(2*a*a);
if diag>d then writeln (' krug pomestits9 v kvadrate ') else writeln (' krug ne pomestits9 v kvadrate ');

readln;

end.