2. Составьте программу, определяющую, является ли введенное слово изображением числа

var s:string;

cod,i:integer;

n,m:longint;

begin

assign(input,'input.txt'); reset(input);

assign(output,'output.txt'); rewrite(output);

readln(s);

val(s,n,cod); преобразуем изображение числа в число

if cod >0

then write(‘NO’)

else write(‘YES’);

close(input);

close(output);

end.

2. Введите 2 целых числа. Преобразуйте числа в две строки, объедините их в одну строку и выведите результат на экран.

var s,s1:string;

i,n,m:integer;

begin

assign(input,'input.txt'); reset(input);

assign(output,'output.txt'); rewrite(output);

read(n,m);

str(n,s); преобразуем число в строку

str(m,s1);

s:=s+s1;

write(s);

close(input);

close(output);

end.

2. Определить количество слов в строке

var s:string;

kol,i:integer;

begin

assign(input,'input.txt'); reset(input);

assign(output,'output.txt'); rewrite(output);

readln(s);

s:=' '+s; в начале строки приклеиваем пробел

kol:=0;

i:=1;

while i<length(s) do

begin

if (s[i]=' ')and(s[i+1]<>' ') количество слов совпадает с количеством пар

then inc(kol); пробел – не пробел

inc(i);

end;

write(kol);

close(input);

close(output);

end.

2. Получите строковой массив из всех слов данной строки

const nmax=100;

var s,sp:string;

i,n,kol:integer;

a:array[1..nmax] of string;

begin

assign(input,'input.txt'); reset(input);

assign(output,'output.txt'); rewrite(output);

readln(s);

n:=1;

for i:=1 to length(s) do

begin

if s[i]<>' ' then собирающий символы

слова в само слово

a[n]:=a[n]+s[i];

else inc(n)

end;

for i:=1 to n do write(a[i],’ ‘);

close(input);

close(output);

end.

2. Получите строковой массив из всех слов данной строки и

отсортируйте его по алфавиту.

const nmax=100;

var s,sp:string;

i,j,n,kol:integer;

a:array[1..nmax] of string;

begin

assign(input,'input.txt'); reset(input);

assign(output,'output.txt'); rewrite(output);

readln(s);

n:=0;

while length(s)>0 do получаем строковой массив

begin

sp:='';

while s[1]=' ' do delete(s,1,1);

while (length(s)>0)and(s[1]<>' ') do

begin

sp:=sp+s[1];

delete(s,1,1);

end;

inc(n);

a[n]:=sp;

end;

for i:=1 to n-1 do сортируем его

for j:=i+1 to n do

if a[i]>a[j]

then

begin

sp:=a[i];

a[i]:=a[j];

a[j]:=sp;

end;

for i:=1 to n do write(a[i],' '); выводим отсортированный массив

close(input);

close(output);

end.

2. Получите строковой массив из всех слов данной строки и

отсортируйте его по возрастанию длин слов

const nmax=100;

var s,sp:string;

i,j,n,kol:integer;

a:array[1..nmax] of string;

begin

assign(input,'input.txt'); reset(input);

assign(output,'output.txt'); rewrite(output);

readln(s);

n:=0;

while length(s)>0 do

begin

sp:='';

while s[1]=' ' do delete(s,1,1);

while (length(s)>0)and(s[1]<>' ') do

begin

sp:=sp+s[1];

delete(s,1,1);

end;

inc(n);

a[n]:=sp;

end;

for i:=1 to n-1 do

for j:=i+1 to n do

if length(a[i])>length(a[j])

then

begin

sp:=a[i];

a[i]:=a[j];

a[j]:=sp;

end;

for i:=1 to n do write(a[i],' ');

close(input);

close(output);

end.