// PascalABC.NET 3.2, сборка 1338 от 16.11.2016 begin var s100:=Arr('','сто','двести','триста','четыреста','пятьсот', 'шестьсот','семьсот','восемьсот','девятьсот'); var s10:=Arr('','десять','двадцать','тридцать','сорок','пятьдесят', 'шестьдесят','семьдесят','восемьдесят','девяносто'); var s11:=Arr('','одиннадцать','двенадцать','тринадцать','четырнадцать', 'пятнадцать','шестнадцать','семнадцать','восемнадцать', 'девятнадцать'); var s1:=Arr('','один','два','три','четыре','пять','шесть', 'семь','восемь','девять'); var n:=ReadInteger('Укажите трехзначное натуральное число'); var s:=s100[n div 100]; var n10:=(n div 10) mod 10; var n1:=n mod 10; case n10 of 0:if n1>0 then s:=s+' '+s1[n1]; 1:if n1=0 then s:=s+' '+s10[1] else s:=s+' '+s11[n1]; else begin s:=s+' '+s10[n10]; if n1>0 then s:=s+' '+s1[n1] end end; Writeln(s) end.
Массив (в некоторых языках программирования также таблица, ряд, матрица) — тип или структура данных в виде набора компонентов (элементов массива), расположенных в памяти непосредственно друг за другом. При этом доступ к отдельным элементам массива осуществляется с индексации, то есть через ссылку на массив с указанием номера (индекса) нужного элемента. За счёт этого, в отличие от списка, массив является структурой данных, пригодной для осуществления произвольного доступа к её ячейкам[1].
Размерность массива — это количество индексов, необходимое для однозначной адресации элемента в рамках массива[2][3]. Форма или структура массива — сведения о количестве размерностей и размере (протяжённость) массива для каждой из размерностей[4]; может быть представлена одномерным массивом[5].
В языке программирования APL массив является основным типом данных (при этом нуль-мерный массив называется скаляром, одномерный — вектором, двумерный — матрицей)[5].
begin
var s100:=Arr('','сто','двести','триста','четыреста','пятьсот',
'шестьсот','семьсот','восемьсот','девятьсот');
var s10:=Arr('','десять','двадцать','тридцать','сорок','пятьдесят',
'шестьдесят','семьдесят','восемьдесят','девяносто');
var s11:=Arr('','одиннадцать','двенадцать','тринадцать','четырнадцать',
'пятнадцать','шестнадцать','семнадцать','восемнадцать',
'девятнадцать');
var s1:=Arr('','один','два','три','четыре','пять','шесть',
'семь','восемь','девять');
var n:=ReadInteger('Укажите трехзначное натуральное число');
var s:=s100[n div 100];
var n10:=(n div 10) mod 10;
var n1:=n mod 10;
case n10 of
0:if n1>0 then s:=s+' '+s1[n1];
1:if n1=0 then s:=s+' '+s10[1]
else s:=s+' '+s11[n1];
else begin
s:=s+' '+s10[n10];
if n1>0 then s:=s+' '+s1[n1]
end
end;
Writeln(s)
end.