|
|
|
|
ЛАБОРАТОРНАЯ №1 ВАРИАНТ 10
| Задача:
Даны окружность и квадрат. Проверить, можно ли окружность вписать в квадрат. С клавиатуры вводится радиус окружности R и площадь квадрата S. Результат вы водится на экран в удобном для восприятия виде.
|
| Решение: |
| < < Скачать > > |
program task10;
var r,s:real;
begin
r := 0;
s := 0;
writeln('VVEDITE R i S');
readln(r,s);
if sqrt(s)=r*2 then writeln('okrughnost moghno vpisat v kvadrat')
else writeln('okrughnost nelzya vpisat v kvadrat');
readln;
end.
|
|
| |
