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