задание Заменитьпервую строчную букву на заглавную в словах, имеющих выбранную длину, объясните пожалуйста программу особенно 13 строчку if i - p = 5 then s [p]:= chr(ord(s[p]) - 32)
Program lab;
var i, p : integer;
s : string;
begin readln(s);
p := 1;
s := s + ' ';
for i := 1 to length(s) do begin if s = ' ' then
begin
if i - p = 5 then s [p]:= chr(ord(s[p]) - 32);
p := i + 1;
end;
end;
writeln(s);
readln;
end.
№ 1 | Автор: virus1 |
2014-01-18, 11:40 | Изменено: virus1 - Сб, 2014-01-18, 11:44
|
Репутация: [ + 0 ]
|
|
|
|
