<em>// PascalABC.NET 3.2, сборка 1338 от 16.11.2016</em>
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. <span>Полносвязная топология
2. Топология "Шина" (квадраты на концах - терминаторы)
3. Топология "Звезда" (В цетре - </span><span>концентратор или хаб</span>)
4. Топология "Кольцо" (Стрелкой указано направление токена)
Var i,a:integer;
begin
for i:=1 to 99 do
if i mod 4=0 then a:=a+i;
write (a);
end.
Получение-раскодирование-просмотр
1. Создаешь папку BOX
2.В папке BOX папку LETTER
3. В папке LETTER создаешь текстовый документ peter.txt и kate.txt
4.В папке LETTER создаешь папку WORK
5. В папке WORK создаешь текстовый документ april.txt и may.txt
6. В папке LETTER создаешь папку FREND
7. В папке FREND создаешь папку SCHOOL
8. В папке SCHOOL создаешь текстовый документ mary.txt
9. В папке FREND создаешь текстовый документ sport.txt