Напишите программу, в которой определяются координаты точки С (x, y), делящей отрезок AB
с координатами концов А(x1,y1) и В(x2,y2) на части таким образом, что AC=m*АВ (где 0 От пользователя требуется ввод координат точек А и В и коэффициента решить Паскале
Результат должен быть 3.2; 3.7

2^i = 64

i = 6 бит приходится на 1 символ

3 * 40 * 60 * 6 = 43200 бит

43200 : 8 = 5400 байт

program xxx;

    var i, k, d, e, s : integer;

begin

  k: =0;

  for i: = 10 to 99 do

    begin

          d: = i div 10;

          e: = i mod 10;

          s: =d + e;

          if i mod s = 0 then k: =k+1

    end;

    write ('кол-во чисел которые делятся на сумму своих цифр=', k);

    readln

end.

паскаль же?

var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin

d: =d+k;

val(s,k,err);

end;

write (d);

end.