Толя-Карп услышал, что где-то на окраинах его озера были два вещественных числа a и b.

И, что самое страшное, a поделили на b, после чего полученное число округлили до 3 знаков после запятой. Это ещё не все, в полученном числе всегда 3 знака после запятой, даже если их составляют незначащие нули.

Теперь Толи-Карпу не даёт покоя один вопрос, чему равно получившиеся число ему вернуть спокойствие.

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.

program xxx;

      var d, x1, x2, y1,y2 : real;

begin

  write('введите координаты 1 точки: ');

  readln(x1, y1);

  write('введите координаты 2 точки: ');

  readln(x2, y2);

  d: =sqrt(sqr(x2-x1)+sqr(y2-y1));

  write('растояние между точками =', d);

  readln

end.

var i, n, a: integer; c1, c2, c3, c4: integer;

begin readln(n); for i : = 1 to n do begin readln(a); c1 : = a div 1000; c2 : = (a div 100) mod 10; c3 : = (a div 10) mod 10; c4 : = a mod 10; if (c1 < > c2) and (c1 < > c3) and (c1 < > c4) and (c2 < > c3) and (c2 < > c4) and (c3 < > c4) then writeln('цифры попарно различны') else writeln('не все цифры попарно различны'); end; end.

if(a> b) cout < < a;

if(a< b)cout < < b;