Uses crt;
const n=5;
var
s:array[1..n] of string;
i,j,c:integer;
ss:string;
begin
writeln('Введите :');
for i:=1 to n do begin
write('s[',i,']=');
readln(s[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if s[i]>s[j] then
begin
ss:=s[i];
s[i]:=s[j];
s[j]:=ss;
end;
for i:=1 to n do
writeln(i,'.',s[i],' ');
<span>end.</span>
<span>Программа, запускаемая при включении персонального компьютера, осуществляющая диалог с пользователем, организующая управление ресурсами компьютера и реализующая выполнение других программ, называется о<span>перационной системой.</span></span>
Var n,k1,k2:integer;
begin
write('n = ');
readln(n);
k1:=0; k2:=0;
while n>0 do
begin
if n mod 2=0 then k1:=k1+1 else k2:=k2+1;
n:=n div 10;
end;
writeln('Четных цифр - ',k1,', нечетных - ',k2);
end.
Пример:
n = 14568
Четных цифр - 3, нечетных - 2
Сеть Интернет представляет собой всемирную информационную компьютерную сеть, которую по праву называют мировой паутиной. Она объединяет в единое целое множество компьютерных сетей, работающих по единым правилам, и имеет своих пользователей практически во всех странах мира.