profile
Размещено 6 лет назад по предмету Информатика от nimrik87

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

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

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

  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
            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.
    1. Ответ на вопрос
      Ответ на вопрос дан Giammy
      Вы дважды код вставили
    2. Ответ на вопрос
      Ответ на вопрос дан Giammy
      А все
    3. Ответ на вопрос
      Ответ на вопрос дан Аккаунт удален
      Это не я вставил, просто глюк был
    4. Ответ на вопрос
      Ответ на вопрос дан nimrik87
      Спасибо
    5. Ответ на вопрос
      Ответ на вопрос дан Аккаунт удален
      Для "спасибо" достаточно кнопочки)
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 6 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.