R^2
Var
x,y,r:integer;
Begin
Write('Введите координату X: ');
Readln(x);
Write('Введите координату Y: ');
Readln(y);
Write('Введите длину радиуса R: ');
Readln(r);
If (sqr(x)+sqr(y))=sqr(r) <span>then </span>
writeln('Точка лежит на окружности!')
Else writeln('Точка не лежит на окружности!');<span>
End.</span>
Const
n=30;
var
i,k,m:integer;
begin
Randomize;
Writeln('Заданы мощности:');
k:=0;
for i:=1 to n do
begin
m:=Random(100)+50;
Write(m:4);
if m>100 then k:=k+1
end;
Writeln;
Writeln('Количество машин с мощностью больше 100 л.с. равно ',k)
end.
<em><u>Тестовое решение:</u></em>
Заданы мощности:
147 126 69 149 121 112 69 138 144 135 148 133 86 101 109 82 60 126 80 96 66 113 77 86 147 100 131 146 84 70
Количество машин с мощностью больше 100 л.с. равно 17
Var a, b, c: integer;
function max(a, b : integer) : integer;
begin
if a>b then max:=a
else max:=b;
end;
begin
readln(a, b, c);
writeln(max(max(a, b),c)-5);
end.
a=input()
spisok0=a.split()
spisok1=[]
schet=0
for i in range(len(spisok0)):
print(schet)
print(spisok0)
if int(spisok0[schet]) == 0:
spisok1.append(0)
del spisok0[schet]
schet-=1
schet+=1
print(spisok0,spisok1)