Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program nm12;
var a, d : integer;
begin
writeln (' vvedite diametr kruga i storony kvadrata ');
readln (d);
readln (a);
if d< =a then writeln (' krug pomestits9 v kvadrate ')
else writeln (' krug ne pomestits9 v kvadrate ');
readln;
end.
Популярные вопросы