решить задачи в паскале 8 класс, приведен пример решения

Задача 10.

var

 flag, a: integer;

 n: longint;

begin

 Write('n -> '); Readln(n);

 flag := 0;

 

 while (n <> 0) do

 begin

   a := n mod 10;

   if (a = 3) then flag := 1;

   n := n div 10;

 end;

 

 if (flag = 1) then Writeln('Цифра 3 есть в записи числа')

 else Writeln('Цифры 3 не встречается в записи числа');

 Readln;

end.

Задача 11.

var

 a, flag_2, flag_5: integer;

 n: longint;

begin

 Write('n -> ');

 Readln(n);

 

 flag_2 := 0;

 flag_5 := 0;

 repeat

   a := n mod 10;

   

   if (a = 2) then flag_2 := 1

   else if (a = 5) then flag_5 := 1;

   

   n := n div 10;

 until n = 0;  

 

 if (flag_2 = 1) and (flag_5 = 1) then Writeln('Цифры 2 и 5 есть в записи числа')

 else if (flag_2 = 1) and (flag_5 = 0) then Writeln('В записи числа присутствует цифра 2, но отсутствует цифра  5')

 else if (flag_2 = 0) and (flag_5 = 1) then Writeln('В записи числа присутствует цифра 5, но отсутствует цифра  2')

 else Writeln('Цифры 2 и 5 не встречаются в записи числа');

 Readln;

end.

Задача 13.

var

 a, k, i: integer;

 n: longint;

begin

 write('n -> ');

 Readln(n);

 Write('k -> ');

 Readln(k);

    i := 0;

 repeat

   a := n mod 10;

   if a = 5 then i := i + 1;

   n := n div 10;  

 until n = 0;

 

 if (i > k) then Writeln('Не верно')

 else Writeln('Верно');

 Readln;

end.

Задача 14.

var

 a, k_0, k_9: integer;

 n: longint;

begin

 write('n -> ');

 Readln(n);

 

 k_0 := 0;

 k_9 := 0;

 repeat

   a := n mod 10;

   if a = 0 then k_0 := k_0 + 1

   else if a = 9 then k_9 := k_9 + 1;

   n := n div 10;  

 until n = 0;

 if (k_0 > k_9) then Writeln('Нолей больше')

 else if (k_9 > k_0) then Writeln('Девяток больше')

 else if (k_9 = 0) and (k_0 = 0) then Writeln('В числе отсутствуют 0 и 9')

 else Writeln('Их одинаковое количество');

 Readln;

end.

Задача 15.

var

 min, a: integer;

 n: longint;

begin

 write('n -> ');

 Readln(n);

 min:=10;

 while n <> 0 do

   begin

   a := n mod 10;

   if a < min then min := a;

   n := n div 10;  

 end;

 Writeln('Минимальная цифра ', min);

 Readln;

end.

Задача 16.

var

 first_digit, last_digit, k: integer;

 n: longint;

begin

 write('n -> ');

 Readln(n);

 

 k := 1;

 // найдём разряд последней цифры в числе

 while n div k >= 10 do

 begin

   k := k * 10

 end;

 

 // первая цифра

 first_digit := n mod 10;

 // последняя цифра

 last_digit := n div k;

 

 // если первая и последняя цифра числа равны то нет необходимости менять первую и последнюю цифру местами

 if (first_digit = last_digit) then

   Write(n)

 else

   Writeln(first_digit * k + (n mod k div 10) * 10 + last_digit);

end.

Const n=10; 
type ar=array[1..n+1] of integer;
var 
a:ar; i,p:integer; 
procedure pr(var a:ar; p:integer; var k:integer);
begin
k:=1;
while a[k]<>p do k:=k+1;
end;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(31);
 write(a[i]:4);
 end;
writeln;
p:=17;
a[n+1]:=p;
pr(a,p,i);
if i<n 
 then writeln('Значение 17 найдено, номер элемента = ',i)
 else writeln('Значения 17 в массиве нет');
end.

Пример:
Массив A:
  14   5   7  17  25  15  28   0  24   0
Значение 17 найдено, номер элемента = 4

РОПОР и ТОПОР

Объяснение:

Представим что имеем дело с 4-ичной системой счисления { 0 - О, 1 - П, 2 - Р, 3 - Т }. В таком случае вышенаписанный ряд можно представить в такой виде:

1. (00000) = 0 в 10ичной СС

2. П (00001) = 1 в 10ичной СС

3. Р (00002) = 2 в 10ичной СС

4. Т (00003) = 3 в 10ичной СС

5. ОООПО (00010) = 4 в 10ичной СС

...

Исходя из этого, чтобы получить слово, находящееся на 531 месте и 787 месте, достаточно перевести числа 530 и 786 в 4-ичную систему счисления и заменить цифры буквами.

1.

530 / 4 = 132 (2 остаток)

132 / 4 = 33 (0 остаток)

33 / 4 = 8 (1 остаток)

8 / 4 = 2 (0 остаток)

530(10) = 20102 (4)

Замена: РОПОР

2.

786 / 4 = 196 (2 остаток)

196 / 4 = 49 (0 остаток)

49 / 4 = 12 (1 остаток)

12 / 4 = 3 (0 остаток)

786(10) = 30102(4)

Замена: ТОПОР