Procedure TForm1.Button1Click(Sender: TObject); var

x1,x2,y1,y2,y:real;

begin

x1=StrToFloat(Edit1.Text);

x2:=StrToFloat(Edit2.Text);

y1=x1*x*2;

y2:=x1+x2;

y:=y2/y1;

y:=Int(y);

Label1.Текст:=FloatToStr(y);

end;
Виправити помилки​

Объяснение:

Историю робототехники как прикладной науки о разработке и производстве автоматизированных технических систем можно условно разделить на две части: популярную и актуальную.

Популярная история робототехники ведет свое повествование от мифа о железных слугах Гефеста, «Франкенштейна» Мери Келли, через удивительные часовые механизмы в виде поющих бронзовых фазанов и целых движущихся городов к роботам на Марсе и гуманоидному роботу Asimo корпорации Honda. Т.е. показывает развитие мечты о роботах.

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

Объяснение:

Программа для while

program whil;

var x,i,n:integer;

y:real;

 begin

   i:=1;

   n:=0;

   Writeln ('Введите число для которого необходимо определить делители: ');

   Read (x);

   WHILE  (i<=x) DO

       begin

             if (x mod i=0) then

             begin

               y:=x/i;

               n:=n+1;

           Writeln (n,' делитель числа',x,' : ',y );

             end;

               i:=i+1

             end;

             Writeln ('Число делителей числа', x, ' : ',n)

 end.

Программа для repeat

program repeats;

var x,i,n:integer;

y:real;

 begin

   i:=0;

   n:=0;

   Writeln ('Введите число для которого необходимо определить делители: ');

   Read (x);

     repeat

          i:=i+1;

       begin

             if (x mod i=0) then

             begin

               y:=x/i;

               n:=n+1;

            Writeln (n,' делитель числа',x,' : ',y );

             end;

                         end;

                 until i>=x;

                               Writeln ('Число делителей числа', x, ' : ',n)

           end.