Задание №15

 

1) Задание:

На основе записной книжки, содержащей сведения: ФИО, год рождения, адрес(город,улица,№ дома, квартира), место работы(учебы), напечатать список в алфавитном порядке.

Код программы:

 

 

2) Printscreen

Задание №15

п.1. – Напечатать слова, отличные от последнего слова, если в слове встречаются подряд две гласные буквы.

п.2. - Напечатать все слова, отличные от последнего слова. Если слово четной длины, то дополнить его еще одной буквой таким образом, чтобы слева и справа от этой буквы находилось одинаковое количество букв.

 

Код программы.

program asg;

 

{$APPTYPE CONSOLE}

 

uses

SysUtils;

 

var

s, s1, s2, s3, ss: string;

i,count: longint;

boll: boolean;

 

begin

readln(s);

count:=0;

i:= length(s);

while s[i] <> ' ' do

begin

s1:= s[i] + s1;

dec(i);

end;

s:= s + ' ';

ss:= s;

s2:='eyuoia';

while length(s) <> 0 do

begin

s3:= copy(s, 1, pos(' ', s) - 1);

delete(s, 1, pos(' ', s));

if s1 <> s3 then

begin

boll:=false;

for i:=1 to length(s3)-1 do

if (pos(s3[i],s2)<>0) and (pos(s3[i+1],s2)<>0)then

boll:=true;

if boll then

begin

inc(count);

if length(s3)<>0 then

writeln(s3,' ')

else

write('bykw net');

end;

end;

end;

if count = 0 then

write('net takih slov');

count:=0;

s:= ss;

writeln;

while length(s) <> 0 do

begin

s3:= copy(s, 1, pos(' ', s) - 1);

delete(s, 1, pos(' ', s));

if s1 <> s3 then

begin

inc(count);

if length(s3)mod 2 = 0 then

s2:=copy(s3,1,length(s3)div 2)+'A'+copy(s3,length(s3)div 2+1,length(s3)div 2)

else

s2:=s3;

if length(s2)<>0 then

write(s2,' ')

else

write('bykw net');

end;

end;

if count= 0 then

write('net takih slov');

readln;

end.