Ответы 1

  • Var A:integer;B:boolean;BeginB:=true;Write('A = ');Read(A);While A>0 do   Begin   if A mod 10 = 5 then B:=false;   A:=A div 10;   End;if B then WriteLn('Верно')else WriteLn('Не верно')End.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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