• Напишите программу которая определяет Верно ли что введенное число состоит из одинаковых цифр
    Паскаль

Ответы 4

  • У меня выводит что нужно do перед :=
  • Где s:=0
  • Единственный минус у Вас в программе - она не работает с отрицательными числами
  • var z,a,s:integer; beginreadln(z) a:=z mod 10; z:=z div 10; s:=0; while (z>0) and (s=0) do if z mod 10<>a then s:=1 else z:=z div 10; if s=0 then write ('yes') else write('no'); end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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