Скласти допомiжний алгоритм переïзду перехрестя .

По-перше треба поглядити на світлофор и якщо він зелений то іти якщо червоний то ні

выполнение команд пользователя по запросу (запуск и закрытие программ, ввод и вывод информации, освобождение дополнительной памяти и так далее); доступ к периферийным устройствам (принтеру, мыши, клавиатуре и так далее); загрузка программного обеспечения в оперативную память и его выполнение; осуществление управления оперативной памятью; сохранение данных об ошибках и сбоях в системе; обеспечение интерфейса для пользователя; осуществление доступа к другим носителям информации и управление ним.

Пуск = выключение = перезагрузка

Кнопка ВКЛ\ВЫКЛ

Ctrl  alt del = значок выкл. (правый нижний угол) = перезагрузка

С флешки или харда, заходишь в биос, выбираешь путь загрузки.

1. Цикл

var a,k:integer;

begin

write('Введите число: ');

readln(a);

while a<>0 do

begin

if(a mod 2 = 0) and (a mod 10 <> 8) then k:=k+1;

write('Введите число: ');

readln(a)

end;

if k > 0 then writeln('В последовательности были чётные числа, не оканчивающиеся на цифру 8.')

else writeln('В последовательности не было чётных чисел, не оканчивающихся на цифру 8.')

end.

2. Массив через цикл

var a,k,i:integer;

p:array [1..1000] of integer;

begin

repeat

write('Введите число: ');

readln(a);

if a<>0 then

begin

i:=i+1;

p[i]:=a

end

until a=0;

for a:=1 to i do

if(p[a] mod 2 = 0) and (p[a] mod 10 <> 8) then k:=k+1;

if k > 0 then writeln('В последовательности были чётные числа, не оканчивающиеся на цифру 8.')

else writeln('В последовательности не было чётных чисел, не оканчивающихся на цифру 8.')

end.