Это ip адрес компьютера,ip адрес - это идентификатор<span> устройства </span><span>подключённого к локальной сети или интернету.</span>
Можно ещё использовать оператор выбора case
Program pr;
uses crt;
Var k:integer;
Begin
Writeln('Введите k');
readln(k);
if (k>=1) and (k<=5) then
Begin
case k of
1: Writeln('Плохо');
2: Writeln('Неудовлетворительно');
3: Writeln('удовлетворительно');
4: Writeln('Хорошо');
5: Writeln('Отлично');
end;
end
else Writeln('Ошибка');
readln;
end.
===== PascalABC.NET =====
begin
var n := ReadInteger;
var L := ReadSeqInteger(n).Distinct.ToList;
L.AsEnumerable.Reverse.Print
end.
Это часть про разложение на цифры<span>uses crt;
var a,b,c,d,e,x:integer;
begin
write('vvedi chislo');
readln (x);
a:=x div 10000;
b:=x div 1000 mod 10;
c:=x mod 1000 div 100;
d:=x mod 100 div 10;
e:=x mod 10;
writeln (' ',a,' ',b,' ',c,' ',d,' ',e);</span><span>end.
</span>
13) 2
14)1
15)3
16)1
17)2
18) 2,3,4,6
19) 1. - в, г, д
2.- а,б,в
20) 1.- а, г
2.- б,в
21) а
22) а