Question

Дано целое число в диапазоне 1-4 : номер цвета. Вывести название цвета : 1- белый, 2- серый, 3-красный 4 - синий Паскаль ABC net. Помогите пожалуйста) ​

Answer 1

Ответ:

Объяснение:

procedure colors();

var number: integer; //Номер цвета

   mess: string;  //Сообщение, которое будем выводить

begin

    {Считывание  значения}

    write('Input number (1-4): ');

    readln(number);

    writeln();

    mess:='';

    case number of

      1: mess := 'Color is white';

      2: mess := 'Color is gray';

      3: mess := 'Color is red';

      4: mess := 'Color is blue';

      else

        mess := 'There is no such color';

    end;

    writeln(mess);

    readln();  // удерживаем консоль

end;  

begin

    // Вызов процедуры

    colors();  

end.                    

Answer 2

Конечно, вот пример кода на Pascal ABC NET, который принимает целое число в диапазоне от 1 до 4 и выводит соответствующее название цвета:

pascalCopy code
program ColorNames;
var
  colorNumber: integer;
begin
  writeln('Введите номер цвета (1-4): ');
  readln(colorNumber);

  case colorNumber of
    1: writeln('Белый');
    2: writeln('Серый');
    3: writeln('Красный');
    4: writeln('Синий');
  else
    writeln('Неправильный номер цвета');
  end;

  readln;
end.

Просто скопируйте этот код в вашу среду Pascal ABC NET и запустите его. Вы сможете вводить номер цвета, и программа выведет соответствующее название цвета.