Question

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

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.