Question

Используя оператор выбора решить задачу в паскаль: Для каждой введённой цифры (0-9) вывести соответствующие ей название на английском языке (0 – zero, 1 – one, 2 – two, 3 – three, 4 – four, 5 – five, 6 – six, 7 – seven, 8 – eight, 9 – nine)

Answer 1

Read ( Digit );
case Digit of
  0 : Write ( 'Zero' );
  1 : Write ( 'One' );
  2 : Write ( 'Two' );
  3 : Write ( 'Three' );
  4 : Write ( 'Four' );
  5 : Write ( 'Five' );
  6 : Write ( 'Six' );
  7 : Write ( 'Seven' );
  8 : Write ( 'Eight' );
  9 : Write ( 'Nine' );
end;
end.

Answer 2

Программа на Pascal будет выглядеть следующим образом:

program NumberNames;

var
  number: Integer;

begin
  writeln('Enter a number (0-9): ');
  readln(number);
  
  case number of
    0: writeln('zero');
    1: writeln('one');
    2: writeln('two');
    3: writeln('three');
    4: writeln('four');
    5: writeln('five');
    6: writeln('six');
    7: writeln('seven');
    8: writeln('eight');
    9: writeln('nine');
  end;
end.

Когда пользователь вводит цифру от 0 до 9, программа использует оператор выбора `case` для определения соответствующего ей названия на английском языке и выводит его на экран.