Дана строка символов, содержащая последовательность слов, разделенных запятыми, за последним словом точка. Напечатать последнее слово последовательности — Pascal(Паскаль)

var s,s1:string;
i,a,k,k1:integer;
begin
readln(s);
a:=pos('.',s);
k:=a;
while s[k]<>',' do
k:=k-1;
k1:=a-k;
s1:=copy(s,k+1,k1);
write(s1);
readln;
end.

Похожие записи/страницы:

Leave a Comment

− 4 = 2