Ввести цифру и определить ее словесное обозначение: «один» (1), «девять» (9).Помогите пожалуйста
Ответы
Ответ дал:
0
var nums: array [1..9] of string := (
'один', 'два', 'три', 'четыре', 'пять', 'шесть', 'семь', 'восемь', 'девять'
);
n: integer;
begin
repeat
write('Введите цифру: ');
readln(n);
until (n >= 0) and (n <= 9);
writeln(nums[n]);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
8 лет назад