Цитата:
Сообщение от Alexander Mece
Дан текст, среди символов которого имеется пробел. Группа символов, предшествующая первому пробелу, представляет собой русское слово, оканчивающиеся на –онок, или –енок. Получить это слово во множественном числе.
|
Код:
uses crt;
var
s,k,w,w1,rez:string;
n,i:integer;
f:text;
begin
assign (f,'c:\1.in');
n:=0;
i:=0;
rez:='';
writeln ('Enter string');
readln (s);
n:=pos(' ',s);
n:=n-1;
k:=copy(s,1,n);
reset (f);
while not eof(f) do begin
readln (f,w);
readln (f,w1);
if w=k then begin
inc(i);
rez:=w1;
end;
end;
close (f);
if i<>0 then writeln(rez) else begin
w:=copy(k,n-3,n);
if w='онок' then begin
delete(k,n-3,n);
k:=k+'ата';
writeln ('New word=',k);
end
else if (w='енок') or (w='ёнок') then begin
delete(k,n-3,n);
k:=k+'ята';
writeln ('New word=',k);
end;
end;
readln;
end.
Текстовый файл в кодировке DOS(OEM) содержит слова-исключения.