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.
выполнение команд пользователя по запросу (запуск и закрытие программ, ввод и вывод информации, освобождение дополнительной памяти и так далее); доступ к периферийным устройствам (принтеру, мыши, клавиатуре и так далее); загрузка программного обеспечения в оперативную память и его выполнение; осуществление управления оперативной памятью; сохранение данных об ошибках и сбоях в системе; обеспечение интерфейса для пользователя; осуществление доступа к другим носителям информации и управление ним.
Пуск = выключение = перезагрузка
Кнопка ВКЛ\ВЫКЛ
Ctrl alt del = значок выкл. (правый нижний угол) = перезагрузка
С флешки или харда, заходишь в биос, выбираешь путь загрузки.
