Пожалуйста помогите написать программу в паскале!!!!!!!
Даны радиус круга и сторона квадрата. Проверьте, пройдет ли круг в квадрат?
var r,a:real;
begin
readln(r,a);
if 2*r<a then writeln('proidet') else writeln('ne proidet');
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var r,a:real;
begin
readln(r,a);
if 2*r<a then writeln('proidet') else writeln('ne proidet');
end.