Question

Pascal ABC дана сторона квадрата и радиус круга R входит ли круг в квадрат ?

Answer 1

Var stkv,rkr:real;
begin
writeln('Введите сторону квадрата');
readln(stkv);
writeln('Введите радиус круга');
readln(rkr);
if rkr<stkv/2 then write('входит') else write('не входит')
end.