Составьте программу: По заданной стороне квадрата и радиусу круга выяснить поместится ли квадрат в круг и круг в квадрат?

Question

Информатика

Нюра

6 сентября, 16:02

Составьте программу: По заданной стороне квадрата и радиусу круга выяснить поместится ли квадрат в круг и круг в квадрат?

+4

Ответы (1)

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

Тарас · Answer 1

Program z1;

var

r, s:integer;

begin

writeln ('Введите радиус круга') ;

readln (r) ;

writeln ('Введите сторону квадрата') ;

readln (s) ;

If s>r then

writeln ('Круг поместится в квадрат')

else

writeln ('Квадрат поместится в круг') ;

end.