Program a_1;
var xa,ya,y,l,x,k:real;
begin
writeln('введите координаты точки А');
read(xa,ya);
writeln('введите значение коэффициента k и l ');
read(k,l);
if ya=k*xa+l then
begin
writeln('Точка А принадлежит прямой');
end
else
if ya>k*xa+l then
begin
writeln('Находится выше прямой');
end
else
if ya<k*xa+l then
begin
writeln('Находится ниже прямой');
end
<span>end. </span>
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(15, 0, 150);
a.Println;
Println('max =', a.Max);
Println('Нечетных:', a.Where(t -> t.IsOdd).Count);
Println('Сумма элементов, не превышающих 100:',
a.Where(t -> t <= 100).Sum);
Writeln('Число 20 в массиве',a.Contains(20)?'':' не',' встречается');
a.Sort;
a.Println
end.
<h3>66 101 58 108 113 143 23 57 36 0 20 27 35 6 138</h3><h3>max = 143 </h3><h3>Нечетных: 7 </h3><h3>Сумма элементов, не превышающих 100: 328 </h3><h3>Число 20 в массиве встречается</h3><h3>0 6 20 23 27 35 36 57 58 66 101 108 113 138 143</h3>
Якось так!))))))))))))))))))))))
Var
v, u, h, d, vp: longint;
begin
readln(v, u, h);
vp := v - u;
d := h div vp;
if (h mod vp <> 0) then
inc(d);
writeln(d);
end.
1111111100101000 (вот такой будет вид в двоичной системе счисления)
