Pascal abc. ома решил придумать свой признак делимости на 8. ома будет считать что число делится на 8 если существует перестановка цифр числа такая что новое число было без лидирующих нулей и число делится на 8. вас надо сказать делится ли число 8 по правилам омы. формат входных данных в первой строке дано цело число n(1< =n< =10 в третьей степени)длина числа. во второй строка дана строка состоящая из цифр s-число которое надо проверить. формат выходных данных выведите yes если число делится на 8 про правилам омы иначе no. примеры 2 yes 23 3 no 101

var a:STRING;

i,n,j,k,x,z,y:integer; d:boolean;

begin

readln(n);

read(a);

d:=false;

if (n=1)and (a='8') then d:=true;

if n=2 then begin

x:=ord(a[1]) - 48;

y:=ord(a[2]) - 48;

if((x*10+y) mod 8=0) or

 ((y*10+x) mod 8=0) then d:=true;

end

else

begin

for i:=1 to N-2 do

for j:=i+1 to N-1 do

for k:=i+2 to N do

begin

x:=ord(a[i])-48;

y:=ord(a[j])-48;

z:=ord(a[k])-48;

if((x*4+y*2+z) mod 8=0) or

 ((y*4+x*2+z) mod 8=0) or

 ((y*4+z*2+x) mod 8=0) or

 ((x*4+z*2+y) mod 8=0) or

 ((z*4+y*2+x) mod 8=0) or

 ((z*4+x*2+y) mod 8=0) then d:=true;

 end; end;

 if d then write('YES') else write('NO');

 end.

Обычно - Вирусы не Заражают Комп. Обычных Людей. Обычно Заражаются Комп. в Офисах - Где есть какая - Либо Важная Информация.

Когда Анти-Вирус видит сам Вирус, он издаёт Звук и Говорит Голос - "Вирусная Угроза Была Обнаружена".

Также Исчезают Папки, Файлы и Деньги.

Но бывает также Вирусы, взламывают другие Комп; Телефоны, Планшеты и т.д. Ради Денег. - Высвечивается Надпись что бы приманить Хозяина любого устройства в том числе и комп.

Даже в самых Обычных Онлайн Игр Игровая Валюта - Румбы, Алмазы и Деньги (Игровые) - Могут стоить настоящие Деньги. Тогда Списывают с вашего счёта БЕЗ СПРОСА. Например: - 100 Руб. ; - 82 Руб. и т.д. (Я к примеру).

Или же при взломе На Комп. вместо Букв и Цифр - появляются Странные Символы - #"^^^*** и т.д.

program Vozrasr;

var

 AGE: integer;//Переменная возраста

begin

 writeln('Введите любое число от 1 до 120');

 Readln(AGE); //Ввод возраста

 if (AGE < 1) or (AGE > 120) then

begin

   writeln('ERROR!')

end

 else

 begin

   case AGE of  //для чисел от 11 до 20 создаем отд-ый кейс

     11..20: Writeln('ответ: Мне ', AGE, ' лет');

   Else    //иначе если они не входят в диапазон от [11..20], то выполняется второй кейс

     begin

       case AGE mod 10 of     //делим на 10 и получаем остаток =

         1: Writeln('ответ: Мне ', AGE, ' год');

         2..4: Writeln('ответ: Мне ', AGE, ' года');

         0, 5..9: Writeln('ответ: Мне ', AGE, ' лет');

       end;

     end;

   end;

end;

end.