• Как исправить программу что бы выдовал что знаки чередуются?

    question img

Ответы 3

  • Можете добавить условие если сразу ввести 0 программа выдовала ошибку
  • Добавьте после строки 7-ой строки "read(a);" следующее: if a = 0 then begin writeln('Ошибка!'); exit end;
  • Булевская переменная говорит о том, чередуются ли символы. Если в какой-нибудь момент произведение текущего и предыдущего числа будет больше нуля (a * b > 0 только если знаки совпадают), то присваиваем переменной ложь.var   a, b: integer;  c: boolean;begin  b := 0;  c := true;  read(a);  while a <> 0 do  begin    if a * b > 0 then c := false;    b := a;    read(a);  end;  if c then writeln('Знаки чередуются')        else writeln('Знаки не чередуются')end.
    • Автор:

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

Еще вопросы

Войти через Google

или

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

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

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