program Project4;

{$APPTYPE CONSOLE}

uses
SysUtils;

{1} function kol(var s:string):integer;
var i,k:integer;
Begin
k:=0;
for i:=1 to length(s) do
if s[i] in ['a'..'z']+['A'..'Z'] then
inc(k);
kol:=k;
end;

{2} function del(var s:string):string;
var i:integer; l:string;
Begin
for i:=1 to length(s) do
if not (s[i] in ['0'..'9']) then
begin
l:=l+s[i];
end;
del:=l;
end;


{3} procedure sort (var s:string);
var i,j:integer; c:char;
Begin
for i:=length(s) downto 1 do
for j:=1 to i-1 do
if s[j+1] begin
c:=s[j]; s[j]:=s[j+1]; s[j+1]:=c;
end;
end;

var st:string;
begin
readln(st);
writeln(kol(st));
writeln(del(st));
sort(st);
writeln(st);
readln;
readln;
end.

Случайные файлы

Файл
Readme.txt
A&Z.txt
HAI-0385.TXT
README.TXT
Readme.txt




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.