| Freeman | Дата: Вторник, 08.11.2011, 23:47 | Сообщение # 1 |
Сообщений: 43
Репутация: 104
Статус: Offline
| Помогите решить 2 задачи) или объясните как их написать?
1)написать программу которая выводит введенную строку, сокращая ее каждый раз на один символ до тех пор, пока в строке не останется один символ.
2)дана строка содержащая слова из латинских букв,между словами поставлена запятая,за последним словом- точка. замените начальную букву каждого слова на заглавную.
|
Страна: Беларусь  |
| |
| Freeman | Дата: Среда, 09.11.2011, 00:40 | Сообщение # 2 |
|
Сообщений: 43
Репутация: 104
Статус: Offline
| 1)
program str1;
var
str:string;
i:integer;
begin
Writeln('введите строку');
readln (str);
for i:=Length(str) downto 1 do begin
Delete(str,i,1);
Writeln (str);
end;
end.
2)
program str;
var
st :string;
i,k :integer;
begin
writeln('введите строку');
readln(st);
k:=length(st);
UpCase(st[1]);
for i:=1 to k do
if (st[i]='') then
UpCase(st[i+1]);
writeln(st);
end.
|
| Страна: Беларусь |
| |
