• Решение в паскале

    Написать программу, которая уменшнает на 10 введенное с клавиатуры двузначное число, на 100 - если трехзначное. Условие окончания программы - введение нулевого числа.

    Уведомление о некорректности данных вывести красным цветом, а про окончание работы - зеленым.

Ответы 6

  • Вы дважды код вставили
  • А все
  • Это не я вставил, просто глюк был
  • Спасибо
    • Автор:

      annaz4nk
    • 6 лет назад
    • 0
  • Для "спасибо" достаточно кнопочки)
    • Автор:

      rickycswc
    • 6 лет назад
    • 0
  • uses Crt;var  n:integer;  begin  repeat    textcolor(15);    Write('n='); Read(n);    if n=0 then begin      textcolor(LightGreen);      Writeln('Работа завершена');      textcolor(15);      end    else        if (n>9) and (n<100) then begin        n:=n-10;        Writeln('Результат: ',n)        end      else        if (n>99) and (n<1000) then begin          n:=n-100;          Writeln('Результат: ',n)          end        else begin          textcolor(LightRed);          Writeln('Недопустимое значение');          end;  until n=0;  ReadKey { для PascalABC.NET можно удалить эту строку }end.
    answer img
  • Добавить свой ответ

Войти через Google

или

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

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

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