457 : 2=228, остаток 1
228 : 2=114, остаток 0
114 : 2=57, остаток 0
57:2=28, остаток 1
28:2=14, остаток 0
14:2=7, остаток 0
7:2=3, остаток 1
3:2=1, остаток 1
1:2=1, остаток 0
0
Ответ: 4
Program help;
Var k, l,x,y: integer;
Begin
readln(k,l);
readln (x,y);
if y>k*x+l then
write ('точка лежит над прямой')
else
if y<k*x+l then
write ('точка лежит под прямой')
else
write ('точка лежит на прямой');
End.
Ромб белый
квадрат зелёный
треугольник красный
круг синий
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var c:=ArrRandom(ReadInteger('n='),-50,50); c.Println;
var imax:=c.IndexMax;
c:=c?[:imax]+c?[imax+1:]; c.Println
end.
<u>Пример</u>
n= 15
-5 -23 44 41 23 29 -36 -13 -45 -36 -37 33 -34 -18 33
-5 -23 41 23 29 -36 -13 -45 -36 -37 33 -34 -18 33