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

а) S1=70, S2=36,74

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

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

Question

Информатика

Петря

23 февраля, 05:21

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

а) S1=70, S2=36,74

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

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

+4

Ответы (1)

Знаете ответ на вопрос?

Никитич · 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.