Представьте в виде арифметических выражений следующие утверждения. а)если к трем прибавить четыре , потом умножить полученное число на четыре и разделить на разность восьми и шести , то в результате получится четырнадцать. б) разность двадцати семи сотых и девяти сотых равна восемнадцати сотым. побыстрее.

1)3+4*4: 2=14 2)0,27-0,09=0,18

1)

program task1;

var

i, j, sum: integer;

 

begin

for i: =100 to 125 do

    begin

    sum: =1+i;

    for j: =2 to i div 2 do

        begin

        if i mod j = 0 then sum: =sum+j;

        if sum> 216 then break;

        end;

    if sum = 216 then writeln(i);

    end;

end.

       

2)        

program task2;

var

i, j, k: integer;

 

begin

for i: =110 to 120 do

    begin

    k: =2;

    for j: =2 to i div 2 do

        begin

        if i mod j = 0 then inc(k);

        if k=8 then break;

        end;

    if k < 8 then writeln(i, ', k = ', k);

    end;

end.

     

// pascalabc.net 3.4.2, сборка 1785 от 06.09.2018

// внимание! если программа не работает, обновите версию!

begin

  for var i: =100 to 125 do

  begin

    var s: =i+1;

    for var j: =2 to i div 2 do

      if i mod j=0 then s+=j;

    if s=216 then i.print

  end

end.

102 110

begin

  for var i: =110 to 120 do

  begin

    var k: =2;

    for var j: =2 to i div 2 do

      if i mod j=0 then k+=1;

    if k< 8 then println(i,k)

  end

end.

111 4

113 2

115 4

116 6

117 6

118 4

119 4