Программа на паскале:
var r1, a: real;
begin
write('R1 = ');
readln(r1);
write('A = ');
readln(a);
if 2*r1<a then writeln('Круг поместится в квадрате')
else writeln('Круг не поместится в квадрате');
end.
Пример:
R1 = 2
A = 5
Круг поместится в квадрате
Программа на паскале:
var r1, a: real;
begin
write('R1 = ');
readln(r1);
write('A = ');
readln(a);
if 2*r1<a then writeln('Круг поместится в квадрате')
else writeln('Круг не поместится в квадрате');
end.
Пример:
R1 = 2
A = 5
Круг поместится в квадрате