Сообщений: 6
Написано одно полезное сообщение (для 8 участников)
Перевод на си++
Помогите пожалуйста перевести из поскаля на си++
uses crt;
var
s: string;
i: integer;
Begin
writeln('Введите текст');
ReadLn(s);
i := 2;
while i <= Length(s) do begin
while ((s[i] <> '.') and (s[i] <> ' ')) do begin
s[i] := chr(ord(s[i]) + 32);
Inc(i);
if i > Length(s) then break;
end;
if i > Length(s) then break;
if s[i] = '.' then Inc(i);
Inc(i);
end;
WriteLn(s);
ReadLn;
end.