Решение в паскале Написать программу, которая уменшнает ** 10 введенное с клавиатуры...

Question

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

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

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

Comments

Есть другой вариант: преподают по конспектам 30-летней давности, преподаватели задержались в тех годах с развитием.

---

Да там просто надо подключить Crt и менять цвет чрез textcolor:=код цвета от 0 до 15

---

Братик, я ни в глаз не понимаю о чем ты говоришь))

---

фронтэнд с php, что ли?

---

Пока без. На вью и нативным жсом сижу

---

А... .начинающий ))

---

Так с задачей справишься?

---

Не смешите))

---

Сделай пожалуйста по быстрому

---

Есть результаты?

Answer 1

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<br>        n:=n-10;
        Writeln('Результат: ',n)
        end
      else
        if (n>99) and (n<1000) then begin<br>          n:=n-100;
          Writeln('Результат: ',n)
          end
        else begin
          textcolor(LightRed);
          Writeln('Недопустимое значение');
          end;
  until n=0;
  ReadKey { для PascalABC.NET можно удалить эту строку }
end.

---

Comments

Вы дважды код вставили

---

А все

---

Это не я вставил, просто глюк был

---

Спасибо

---

Для "спасибо" достаточно кнопочки)