Задать вопрос
21 февраля, 18:41

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

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

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

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

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

В Free Pascal.

+1
Ответы (1)
  1. 21 февраля, 20:25
    0
    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.
Знаешь ответ?
Не уверен в ответе?
Найди верный ответ на вопрос ✅ «1. Дано натуральное число. а) найти произведение цифр числа. б) верно ли, что в данном числе нет данной цифры А (цифру А вводить с ...» по предмету 📙 Информатика, а если ответа нет или никто не дал верного ответа, то воспользуйся поиском и попробуй найти ответ среди похожих вопросов.
Искать другие ответы