PAscal

С клавиатуры вводится число N и цифра K. Вывести N раз словесное описание цифры KK:0-zero, 1-one, 2-two, 3-three, 4-four, 5-five, 6-six, 7-seven, 8-eight, 9-nine0-zero, 1-one, 2-two, 3-three, 4-four, 5-five, 6-six, 7-seven, 8-eight, 9-nine.

Формат входных данных

Вводятся два целых неотрицательных числа NN и K (1≤N≤231-1; 0≤K≤9) K (1≤N≤231-1; 0≤K≤9).

Формат выходных данных

Вывести в строчку N раз словесное описание цифры K.

Примеры

входные данные выходные данные

5 8

eight

eight

eight

eight

eight

Question

Информатика

Васяк

3 марта, 16:58

PAscal

С клавиатуры вводится число N и цифра K. Вывести N раз словесное описание цифры KK:0-zero, 1-one, 2-two, 3-three, 4-four, 5-five, 6-six, 7-seven, 8-eight, 9-nine0-zero, 1-one, 2-two, 3-three, 4-four, 5-five, 6-six, 7-seven, 8-eight, 9-nine.

Формат входных данных

Вводятся два целых неотрицательных числа NN и K (1≤N≤231-1; 0≤K≤9) K (1≤N≤231-1; 0≤K≤9).

Формат выходных данных

Вывести в строчку N раз словесное описание цифры K.

Примеры

входные данные выходные данные

5 8

eight

eight

eight

eight

eight

+4

Ответы (1)

Знаешь ответ?

Камилл · Answer 1

Program Number2;

Var a, b : integer;

Procedure Print (i: integer; s: string);

begin

for var j:=1 to i do writeln (s)

end;

Begin

read (b, a);

case a of

0 : Print (b, 'zero');

1 : Print (b, 'one');

2 : Print (b, 'two');

3 : Print (b, 'three');

4 : Print (b, 'four');

5 : Print (b, 'five');

6 : Print (b, 'six');

7 : Print (b, 'seven');

8 : Print (b, 'eight');

9 : Print (b, 'nine');

else

writeln ('Число не входит в указанный отрезок!')

end;

End.