Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра.. Формулы площадей квадрата S₁ и круга S₂ известны, что легко позволяет нам найти нужное условие. Если нужно, чтобы случай, когда квадрат вписан в круг тоже учитывался, строгое неравенство следует заменить нестрогим.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016 begin var s1:=ReadReal('Площадь квадрата'); var s2:=ReadReal('Площадь круга'); if pi*s1<2*s2 then Writeln('Квадрат умещается в круге') else Writeln('Квадрат не умещается в круге') end.
Тестовое решение: Площадь квадрата 24.6 Площадь круга 28.4 Квадрат не умещается в круге
{массив заполняется случайным образом положительными и отрицательными элементами. Находятся отрицательные элементы на главной диагонали и если они есть, то находится их сумма и количество. После этого проверяется, если есть отрицательные элементы на главной диагонали, то выдается среднее арифметическое, если нет, то на экране ответ "нет отриц"} const m=100; var a:array[1..m,1..m]of integer; i,j,S,n,k: integer; begin Readln(n); for i:=1 to n do begin writeln; for j:=1 to n do begin a[i,j]:=random(100)-50; write(a[i,j]:4);
end; end; for i:=1 to n do if a[i,i]>0 then begin s:=s+a[i,i]; k:=k+1; end; writeln; if k<>0 then writeln('SR=', s/k) else writeln('Net <0'); end.
s,n: integer;
begin
readln(n);
s:=0;
while n>0 do
begin
s:=s+(n mod 10);
n:=n div 10;
end;
writeln(s);
end.