1. 

   OOO Naila New Member

   Как написать задачу в Паскале? Дано целое трехзначное число N.
   Верно ли, что в нем есть хотя бы одна цифра 7?

    

   OOO Naila, 26 янв 2010

   #1
2. 

   CANDY_Boy New Member

   var
     n: integer;
   begin
     readln(n);
     if (n mod 10 = 7) or (n div 100 = 7) or ((n div 10) mod 10 = 7) then writeln(true)
     else writeln(false);
   end.

    

   CANDY_Boy, 26 янв 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня