1.Нумерованный - например список учеников класса или больных на прием к врачу 1. Алексеев 2. Батракова 3. Воронин 4. Песков и т.д. 2. Маркированный - например список команд в соревновании в лагере * шахматисты * баскетболисты * волейболисты * шашисты * теннисисты и т.д. 3. Многоуровневый. Например список участников команд по классам 1. 8а класс: * Смирнова * Петров * Исаев * Кононова * Антошкин 2. 8б класс: * Тюлькин * Свистунова * Иванов * Смирнова * Ручкин 3. 8в класс: * Петровский * Золотова * Крючков * Сидоров * Андреева
Var n:integer; a:array[1..27] of string[15]= ('один','два','три','четыре','пять','шесть','семь','восемь','девять', 'десять','одиннадцать','двенадцать','тринадцать','четырнадцать', 'пятнадцать','шестнадцать','семнадцать','восемнадцать','девятнадцать', 'двадцать','тридцать','сорок','пятьдесят','шестьдесят','семьдесят', 'восемьдесят','девяносто'); begin write('N (1..99) = '); readln(N); if (n>=1)and(n<=19) then writeln(a[n]) else begin write(a[n div 10 + 18]); if n mod 10 <> 0 then write(' ',a[n mod 10]); writeln; end; end.
1. Алексеев
2. Батракова
3. Воронин
4. Песков
и т.д.
2. Маркированный - например список команд в соревновании в лагере
* шахматисты
* баскетболисты
* волейболисты
* шашисты
* теннисисты
и т.д.
3. Многоуровневый. Например список участников команд по классам
1. 8а класс:
* Смирнова
* Петров
* Исаев
* Кононова
* Антошкин
2. 8б класс:
* Тюлькин
* Свистунова
* Иванов
* Смирнова
* Ручкин
3. 8в класс:
* Петровский
* Золотова
* Крючков
* Сидоров
* Андреева
a:array[1..27] of string[15]=
('один','два','три','четыре','пять','шесть','семь','восемь','девять',
'десять','одиннадцать','двенадцать','тринадцать','четырнадцать',
'пятнадцать','шестнадцать','семнадцать','восемнадцать','девятнадцать',
'двадцать','тридцать','сорок','пятьдесят','шестьдесят','семьдесят',
'восемьдесят','девяносто');
begin
write('N (1..99) = ');
readln(N);
if (n>=1)and(n<=19)
then writeln(a[n])
else begin
write(a[n div 10 + 18]);
if n mod 10 <> 0 then write(' ',a[n mod 10]);
writeln;
end;
end.
Пример:
N (1..99) = 46
сорок шесть