Question

Осуществить ввод натуральных чисел от 2 до 10. Вывести наименования чисел на русском и английском языке(на языке Pascal)

Answer 1

program brainli_1;

uses crt;

var

input:integer ;

begin

WriteLn('Введите число от 2 до 10');

ReadLn(input);

case input of

2: Writeln('Два Two');

3: Writeln('Три Three');

4: Writeln('Четыре Four');

5: Writeln('Пять Five');

6: Writeln('Шесть Six');

7: Writeln('Семь Seven');

8: Writeln('Восемь Eight');

9: Writeln('Девять Nine');

10: Writeln('Десятт Ten');

end;

readln;

end.

Answer 2

Вот пример программы на языке Pascal, которая позволяет ввести натуральные числа от 2 до 10 и выводит их наименования на русском и английском языке:

pascalCopy code
program NumberNames;
var
  num: integer;
begin
  writeln('Введите натуральное число от 2 до 10:');
  readln(num);

  case num of
    2:
      writeln('Два (Two)');
    3:
      writeln('Три (Three)');
    4:
      writeln('Четыре (Four)');
    5:
      writeln('Пять (Five)');
    6:
      writeln('Шесть (Six)');
    7:
      writeln('Семь (Seven)');
    8:
      writeln('Восемь (Eight)');
    9:
      writeln('Девять (Nine)');
    10:
      writeln('Десять (Ten)');
  else
    writeln('Число вне диапазона от 2 до 10.');
  end;

  readln;
end.

Вы можете скопировать этот код в среду разработки Pascal и выполнить его. Программа запросит ввод числа, а затем выведет его наименования на русском и английском языке.