Составьте программу заполнения масива а [ 1.10 ] случайными целыми числами в диапазоне от n до м. числа n и м введите с клавиатуры . выведите на экран полученный массив . вьте программу заполнения масива
Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра.. Формулы площадей квадрата 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 Квадрат не умещается в круге
Var A: array [1..10] of integer; i,b: integer; begin for i:=1 to 10 do readln(A[i]); for i:=1 to 10 do begin if A[i]=5 then writeln(i,' Строка'); end; end.
begin
var (n, m) := ReadInteger2;
var a := ArrRandom(10, n, m);
a.Println
end.
-8 13-7 11 10 -6 -5 -2 -4 13 13 10