Имя входного файла стандартный ввод Имя выходного файла стандартный вывод Ограничение по...

Question

Имя входного файла стандартный ввод Имя выходного файла стандартный вывод Ограничение по времени 2 секунды Ограничение по памяти 64 мегабайта С клавиатуры вводится число N N и цифра K K . Вывести N N раз словесное описание цифры K K : 0−zero,1−one,2−two,3−three,4−four,5−five,6−six,7−seven,8−eight,9−nine 0−zero,1−one,2−two,3−three,4−four,5−five,6−six,7−seven,8−eight,9−nine . Формат входных данных Вводятся два целых неотрицательных числа N N и K(1≤N≤ 2 31 −1;0≤K≤9) K(1≤N≤231−1;0≤K≤9) . Формат выходных данных Вывести в строчку N N раз словесное описание цифры K K . Примеры входные данные выходные данные 5 8 eight eight eight eight eight

Answer 1

var N,k:integer;

s:string;

BEGIN

readln(N,k);

case k of

0: s:='zero';

1: s:='one';

2: s:='two';

3: s:='three';

4: s:='four';

5: s:='five';

6: s:='six';

7: s:='seven';

8: s:='eight';

9: s:='nine';

end;

for k:=1 to N do

writeln(s);

end.