Сторона квадрата А,радиус круга R. Можно ли круг вписать в квадрат? решение записать в Pascal Abc
Answers & Comments
Toshiksvg
Program proga; var a,r: integer; begin write('Сторона квадрата:'); readln(a); write('Радиус окружности: '); readln(r); if a=2*r then writeln('Можно') else writeln('Нельзя'); end.
Answers & Comments
var a,r: integer;
begin
write('Сторона квадрата:');
readln(a);
write('Радиус окружности: ');
readln(r);
if a=2*r then
writeln('Можно')
else
writeln('Нельзя');
end.