Предмет: Информатика, автор: nimrik87

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

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

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

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

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

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

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

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

Аноним: А... .начинающий ))

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

Аноним: Не смешите))

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

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

Ответы

Автор ответа: Аноним

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.

Приложения: