Uses Crt; Const N = 13; Var A:array[1..N] of integer; i,k:integer; Begin ClrScr; Randomize; Write('Исходный массив:'); k:=0; For i:= 1 to N do Begin A[i]:=random(108)-7; Write(' ',A[i]); if A[i] mod 9 = 0 then k:=k+1 End; WriteLn; WriteLn('Искомое количество: ',k); ReadLn; End.
Чтобы квадрат вписался в круг, его диагональ должна быть равна диаметру круга. Если трактовать "уместиться" как "пролезть", то диагональ должна быть меньше диаметра.. Формулы площадей квадрата 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 Квадрат не умещается в круге
//Линейное уравнение от одной переменной вида ax+b=0 procedure lin1(a,b: real; var x: real); begin x:=-b/a; end;
//Линейное уравнение двух переменных вида ax+by+c=0 //имеет бесконечное множество решений (корней) procedure lin2(a,b,c: real); var x,y: real; n,i: integer; begin write ('Сколько пар корней вы хотите получить? '); readln (n); for i:=1 to n do begin write ('Введите x='); read (x); y:=(-c-a*x)/b; writeln (' y=',y); end; end;
var a,b,c,x,y: real; n: integer; begin write ('Сколько переменных в уравнении - 1 или 2? '); readln (n); if n=1 then begin write ('Введите коэффициент при х: а='); readln (a); write ('Введите свободный коэффициент b='); readln (b); lin1(a,b,x); writeln ('x=',x); end else begin write ('Введите коэффициент при х: а='); readln (a); write ('Введите коэффициент при y: b='); readln (b); write ('Введите свободный коэффициент c='); readln (c); lin2(a,b,c); end; end. пример 1 Сколько переменных в уравнении - 1 или 2? 1 Введите коэффициент при х: а=3 Введите свободный коэффициент b=9 x=-3 пример 2 Сколько переменных в уравнении - 1 или 2? 2 Введите коэффициент при х: а=2 Введите коэффициент при y: b=2 Введите свободный коэффициент c=-4 Сколько пар корней вы хотите получить? 3 Введите x=0 y=2 Введите x=2 y=0 Введите x=-2 y=4
Const
N = 13;
Var
A:array[1..N] of integer;
i,k:integer;
Begin
ClrScr;
Randomize;
Write('Исходный массив:');
k:=0;
For i:= 1 to N do
Begin
A[i]:=random(108)-7;
Write(' ',A[i]);
if A[i] mod 9 = 0 then k:=k+1
End;
WriteLn;
WriteLn('Искомое количество: ',k);
ReadLn;
End.