1 задача program proga; var st,st2:string; i:Integer; begin writeln('Введите число'); readln(st); for i:=1 to length(st) do begin st2:=st[i]; write(st2,' '); end; end. 2 задача program proga2; var st,st2:string; i,a:Integer; begin writeln('Введите возраст'); readln(a); if a>120 then writeln('Неверные данные'); if a=1 then writeln(a,' год'); if (a>1) and (a<5) then writeln(a,' года'); if((a mod 10 = 1) and (a div 10 <> 0 or 11 )) then writeln(a,' год'); if (a>=5) and (a mod 10 <> 2 or 3 or 4)and (a div 10 <> 10) then writeln(a,' лет'); if (a<=5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года '); if(a>104) and (a<110)then writeln(a,' лет'); end.
1 задача program proga; var st,st2:string; i:Integer; begin writeln('Введите число'); readln(st); for i:=1 to length(st) do begin st2:=st[i]; write(st2,' '); end; end. 2 задача program proga2; var st,st2:string; i,a:Integer; begin writeln('Введите возраст'); readln(a); if a>120 then writeln('Неверные данные'); if a=1 then writeln(a,' год'); if (a>1) and (a<5) then writeln(a,' года'); if((a mod 10 = 1) and (a div 10 <> 0 or 11 )) then writeln(a,' год'); if (a>=5) and (a mod 10 <> 2 or 3 or 4)and (a div 10 <> 10) then writeln(a,' лет'); if (a<=5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года '); if(a>104) and (a<110)then writeln(a,' лет'); end.
1) Датчик цвета- это цифовой датчик, который может определять цвет или яркость света.
2) Есть. 1. Размер площадки должен быть- 2400мм х 3800мм
2. Цвет площадки- белый, а цвет линии- черный.
3. Ширина линии- 50 мм, минимальная длинна кривой- 300мм
3) 1. Робот, участвующий в соревновании, должен быть автономным(независимым).
2. Время пути не должно превышать 2-х минут
3. Во время гонки робот должен набрать максимальное количество очков зв короткое время.
Объяснение:
ЭТО ВСЕ, если то поставь лайк и лучший