Question

ajutati-ma va rog mult (se considera un cerc de raza r si un patrat cu latura a , scrieti un program daca cercul inape in patrat)? in programul pascal 

Answer 1

Program X;
 var
a, r: real;
 
begin
write ('Introduceti lungimea laturii patratului: ');
readln (a);
write ('Introduceti lungimea razei cercului: ');
readln (r);

if r<(a/2) then writeln ('Cercul incape in patrat.')
else writeln ('Cercul nu incape in patrat.');

readln;
end.