(см. объяснение)
Объяснение:
program task;
var i: integer;
const N=5;
procedure writeOut(i: integer);
begin
if(i<N) then write(', ')
else writeln('.');
end;
begin
if(N<1) then begin writeln('N>0 и целое!'); exit; end;
writeln('ЦИКЛ FOR:');
for i:= 1 to N
do begin
write(i); writeOut(i);
end;
writeln;
writeln('ЦИКЛ WHILE:');
i:= 1;
while(i<N+1)
do begin
write(i); writeOut(i);
i:= i+1;
end;
writeln;
writeln('ЦИКЛ REPEAT:');
i:= 1;
repeat
write(i); writeOut(i);
i:= i+1;
until i=N+1;
end.
Компьютер является практически неотъемлемой частью нашей жизни. Он везде: дома, в школе, на работе. очень хорошо было бы, если бы компьютер будущего имел разум, с ним можно было бы поговорить обо всём, как со своим другом или приятелем. Компьютер был бы без громоздкого системного блока, то есть, что-то похожее на ноутбук. И выполнял бы команды по голосу, понимая всё и всегда. По своего обладателя компьютер мог бы уменьшаться или увеличиваться, в зависимости от желания. Это было бы очень удобно. Идёте вы, например, на улицу погулять, и хотите взять компьютер с собой. А он раз – и уменьшился. Замечательно, не правда ли? Или захотели посмотреть какой-нибудь фильм, а ваш компьютер увеличивается в несколько раз, и вы, получая удовольствие, смотрите фильм на двухметровом экране. А наушники бы выползали сами собой, по . Захотели музыку послушать и в любом месте, в любое время – наушники к вашим услугам, вам остаётся только наслаждаться.
Вот как я представляю себе компьютер будущего. Конечно, многое из этого выполнить невозможно ни сейчас, ни в ближайшее время, а то и вообще никогда.
1.Начало
2.Движение на 5 оборотов
3.Определение цвета поля
4.Передача данных с датчика цвета на монитор
5 Измерение градуса поворота робота
6.Передача данных с гироскопического датчика на монитор.
Объяснение:Простите если не правильно