Які позитивні впливи іпз на життєдіяльність сучасного суспільства можуть революційним чином змінити його якість

Робо-Сумо Ev3 роботтарының ең қызықты жарыстарының бірі. Жарыста робот қарсылас роботты шеңберден шығарып, өзі сонда қалуы керек.

Робо Сумо өтетін алаңның 2түрі бар. Біреуі қара сызықпен қоршалған ақ шеңбер. Екіншісі ақ сызықпен қоршалған қара шеңбер. Робо сумо атауы жапондардың Сумо ойыны арқылы пайда болған. Робо сумоның атауы осы күреске негізделіп қойылған

Ал, Робот шекараны "іздеуге" жауап беретін бірнеше IR сенсорларымен жабдықталған. Алдыңғы сенсорлар әдетте қозғалыс жылдамдығын басқаруға көмектеседі-күрескер шамадан тыс құлшынысқа байланысты алаңнан шықпауы керек. Артқы датчиктер сақина шекарасына жақындауды "бақылайды": олардан жауап алғаннан кейін робот қозғалыс бағытын өзгертеді. Сәулелерді шағылыстыруға қажетті уақытты өлшеу арқылы сіз жаудың орналасқан жерін түсінуге болады. Көптеген роботтар (бірақ бәрі бірдей емес) осы параметрді ескере отырып бағытты өзгертеді. Датчик түстерді ажыратады және қарсыласты қайда итеру керектігі үшін және роботтардың алға жылжуы үшін керек. Онсыз жұмыс істемейді.

Function prime(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 t := true;
 d := 2;
 while t and (d*d <= x) do
   begin
   if x mod d = 0 then 
     t := false;
   d := d + 1
   end;
 prime := t
end;

function order(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 d := -1;
 repeat
   t := x mod 10 > d;
   d := x mod 10;
   x := x div 10
 until not t or (x = 0);
 order := t
end;

var
 t:boolean;
 i,k,n:integer;
begin
 t := false;
 read(k,n);
 for i := k to n do
   if prime(i) then
   if order(i) then
     begin
     write(i,' ');
     t := true
     end;
 if not t then
   write(0)
end.