1. Дано натуральное число.

а) найти произведение цифр числа.

б) верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры).

2. Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, при увеличении на 4 делятся на 5.

3. Из данного числа удалить все цифры А (А вводится с клавиатуры).

В Free Pascal.

Uses Crt;

Var

A, B:integer;

P:real;

C:boolean;

Begin

ClrScr;

Write ('Введите натуральное число: ') ; ReadLn (B) ;

Write ('A = ') ; ReadLn (A) ;

P:=1;

C:=false;

B:=Abs (B) ;

While B>0 do

Begin

P:=P * (B mod 10) ;

if B mod 10 = A then C:=true;

B:=B div 10

End;

WriteLn ('P = ', P) ;

if C then WriteLn ('Не верно')

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

ReadLn

End.

uses Crt;

Var

A:integer;

Begin

ClrScr;

For A: = 100 to 999 do

if ((A+1) mod 2 = 0) and ((A+2) mod 3 = 0) and ((A+3) mod 4 = 0) and ((A+4) mod 5 = 0) then Write (A,' ') ;

ReadLn;

End.

uses Crt;

Var

A, B, C:integer;

Begin

ClrScr;

Write ('Введите натуральное число: ') ; ReadLn (B) ;

Write ('A = ') ; ReadLn (A) ;

C:=0;

While B0 do

Begin

if B mod 10 A then C:=C*10+B mod 10;

B:=B div 10;

End;

While C0 do

Begin

B:=B*10+C mod 10;

C:=C div 10

End;

WriteLn (B) ;

ReadLn;

End.