Если слово в файле начинается на букву "к", то заменить ее на "К"

@nasty_nasty · Регистрация: 16.11.2011

Студворк — интернет-сервис помощи студентам

Имеется файл, элементами которого являют¬ся отдельные слова. Если слово в файле начинается на букву "к", то заменить ее на "К".

Комментарий модератора

Название темы изменено модератором.

@Стрелок · 01.03.2012, 20:23

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
program zz;
Uses Crt;
label l1,l2;
var i,l:integer;
    str:string;
begin
read(str);
l:=length(str);
i:=1;
 if i=1 then
  begin
   if str[i]='к' then
    begin
     str[i]:='К';
    end;
  end;
l1:
 while str[i]<>' ' do
  begin
    if i>l then
     begin
      goto l2;
     end;
   i:=i+1;
  end;
i:=i+1;
 if str[i]='к' then
  begin
   str[i]:='К';
  end;
goto l1;
l2:
writeln(str);
readkey;
end.

@versa4e · 01.03.2012, 20:39

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var
  f,w:text;
  s:string;
  i:byte;
begin
  assign(f,'1.txt');
  reset(f);
  assign(w,'2.txt');
  rewrite(w);
  while not eof(f) do
    begin
      readln(f,s);
      if s[1]='k' then
        s[1]:=upcase(s[1]);
      for i:=2 to length(s) do
        if (s[i-1]=#32) and (s[i]='k') then
          s[i]:=upcase(s[i]);
      writeln(w,s);
    end;
  close(f);
  close(w);
  erase(f);
  rename(w,'1.txt');
end.

Новые блоги и статьи Все статьи Все блоги /
My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача №1: при указании работ (справочник РаботыПоРемонтуСпецтехники),. . .

Если слово в файле начинается на букву "к", то заменить ее на "К"

Решение

Решение