Дано целое трехзначное положительное число n. составьте программу которая определяет входит ли в него цифра восемь.

Var x: integer; begin readln (x); if (x div 10) or (x div 10 mod 10) or (x mod 10)=8 then writeln ('yes') else writeln ('no'); readln end.

Const ch=8; var n: integer; begin read(n); while n> 0 do begin if(n mod 10=ch)then begin writeln('yes'); break; end; n: =n div 10; end; end.  еще можно в строку преобразовать и посимвольно проверить, но мне кажется так нагляднее и алгоритм проще

Var    a: array[1..20] of integer;     i,x,x1,min,min1: integer; begin    min: =32767;     randomize;       for i: =1 to 20 do    a[i]: =random(200)-100; //заполнение массива    writeln('исходный массив: ');       for i: =1 to 20 do    begin      write(' ',a[i],' ');       if ((a[i]< min) and (a[i] mod 2 < > 0))  then        begin        min: =a[i];         min1: =min;         x: =i;       end;     end;     writeln();     write('позиция: ',x,', значение: ',min1); end.

Аппара́тное обеспече́ние[1][2][3][4], аппаратные средства, компьютерные комплектующие, «железо», (англ. hardware) — электронные и механические части вычислительного устройства, входящие в состав системы или сети, исключая программное обеспечение и данные (информацию, которую вычислительная система хранит и обрабатывает). Аппаратное обеспечение включает: компьютеры и логические устройства, внешние устройства и диагностическую аппаратуру, энергетическое оборудование, батареи и аккумуляторы[5]. К аппаратному обеспечению относятся устройства, образующие конфигурацию компьютера.

Объяснение:

100%