Вывести в обратном порядке последнее слово строки. Подсчитать количество букв в нем.
Вывести в обратном порядке последнее слово строки. Подсчитать количество букв в нем.
Гость
Ответ(ы) на вопрос:
Гостьна Паскаль (для Delphi и Lazarus, надо подкорректировать для PascalABC):
const
V=255;
type L= array [1..V] of char;
var
S: string;
A: L;
f,i: integer;
begin
read(S);
f:=0;
for i:=1 to Length(S) do
begin
if S[i]<>' ' then begin f:=f+1; A[f]:=S[i] end
else f:=0;
end;
for i:=f downto 1 do write(A[i]);
writeln(' ',f);
readln;
readln
end.
Не нашли ответ?
Похожие вопросы