1) Робот- это машина, которая запрограммирована на определенные действия, которые облегчают жизнь человеку. На самом деле, мы используем в быту довольно много роботов: та же стиральная машина-робот; пылесос- робот; компьютер-робот; автомобиль- тоже робот. Как видно, они здорово нам в жизни.
2) к первым роботам можно отнести механическую утку, которую изобрел основоположник робототехники, физик Жак де Вокансон.
Также к числу первых робототехников можно отнести и великого русского механика и физика Чебышева, который изобрел различные механические машины.
uses crt;
var s:string;
i,k:byte;
begin
repeat
writeln('Введите строку из 20 символов');
read(s);
until length(s)=20;
k:=0;
writeln('Строчные латинские буквы, входящие в строку');
for i:=1 to length(s) do
if s[i] in ['a'..'z'] then
begin
write(s[i]);
k:=1;
end;
if k=0 then write('Строчных латинских букв нет')
end.
uses crt;
var s:string;
i,k:byte;
begin
repeat
writeln('Введите строку из 20 символов');
read(s);
until length(s)=20;
k:=0;
writeln('Замены макс на мин и max на min');
for i:=length(s)downto 1 do
if copy(s,i,4)='макс' then
begin
delete(s,i,4);
insert('мин',s,i);
k:=k+1;
end
else if copy(s,i,3)='max' then
begin
delete(s,i,3);
insert('min',s,i);
k:=k+1;
end;
writeln(s);
if k=0 then write('Замен нет')
else write('Количество замен=',k)
end.
