Объяснение:
Программа для 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.
Объяснение:
Историю робототехники как прикладной науки о разработке и производстве автоматизированных технических систем можно условно разделить на две части: популярную и актуальную.
Популярная история робототехники ведет свое повествование от мифа о железных слугах Гефеста, «Франкенштейна» Мери Келли, через удивительные часовые механизмы в виде поющих бронзовых фазанов и целых движущихся городов к роботам на Марсе и гуманоидному роботу Asimo корпорации Honda. Т.е. показывает развитие мечты о роботах.
Актуальная история робототехники включает в себя историю развития только тех идей и технологий, которые оказали наибольшее влияние на конструирование современных роботов, таких как сварочные линии автомобильных кузовов или автономные межпланетные исследовательские станции