Даны круг и квадрат. Составьте программу, определяющую по введенным вами
значениям длин стороны квадрата и радиуса круга, верно ли утверждение
"Круг вписан в квадрат". (Используйте логическую величину RESULT,
принимающую значение TRUE, если утверждение истинно, и значение FALSE,
если утверждение ложно.)
|
kv,kr:word;
result:boolean;
BEGIN
write('Введите длину стороны квадрата:');
readln(kv);
write('Введите длину радиуса круга:');
readln(kr);
result:=kv>=kr;
writeln('Утверждение "Круг вписан в квадрат" имеет значение: ', result);
END.
* переменная kv - длина стороны квадрата
* переменная kr - длина радиуса круга.