• вводится трёхзначное целое положительное число . определить , есть ли среди его цыфра 0

Ответы 1

  • var a,b1,b2,b3:integer;begin Writeln('введи трёхзначное число'); readln(a); b1:=a mod 10; b2:=(a mod 100)div 10; b3:=a div 100; if (b1=0) or (b2=0) or (b3=0) then writeln('Среди цифр есть 0')                                             else writeln('среди цифр нет 0');     end.   
    • Автор:

      jameson3
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years