Для студентов МГТУ им. Н.Э.Баумана по предмету ИнформатикаВариант 14 Задача РК 2Вариант 14 Задача РК 2
2021-12-272021-12-27СтудИзба
Другое: Вариант 14 Задача РК 2
Описание
Описание файла отсутствует
Характеристики учебной работы
Тип
Предмет
Учебное заведение
Семестр
Просмотров
55
Скачиваний
6
Размер
735 b
Список файлов
- РК 2.txt 1 Kb
РК 2
program project1;
var input,output:text; st,a:string; i,n,slovo,kon,ij,ix,smax:integer;
begin
assign(input,'input.txt');
reset(input);
readln(input,st);
close(input);
n:=length(st);
slovo:=0;
i:=1;
smax:=0;
ix:=1;
while i<=n do begin
if st[i]=' ' then
slovo:=slovo+1;
if st[i]='.' then begin
if smax<slovo then begin
smax:=slovo;
ij:=ix;
kon:=i ;
end;
slovo:=0;
ix:=i+1;
i:=i+1;
end;
i:=i+1;
end;
a:=copy(st,ij+1,kon-ij);
readln;
assign(output, 'output.txt');
rewrite(output);
writeln(output,a);
close(output);
end.