Дано трехзначное число...

Тема в разделе "Информатика", создана пользователем вермут, 29 мар 2010.

  1. вермут

    вермут New Member

    Дано трехзначное число входит ли в него цифра 4.По паскалю,люи помогите,а то завал)
     
    вермут, 29 мар 2010
    #1
  2. Mariposa

    Mariposa New Member

    Держи, выведет TRUE, если в записи числа есть 4, и FALSE, если 4 в записи числа не встречается
     
    Program P1;
    Var n : Word;
    Begin
    Write('Введи число: ');
    Readln(n);
    Write((n mod 10 = 4) or (n div 10 mod 10 = 4) or (n div 100 = 4));
    Readln;
    End.
     
     
    Mariposa, 29 мар 2010
    #2

Поделиться этой страницей

Наша группа