В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте

@qwerty122 · Регистрация: 06.03.2011

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

В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и заменить букву "б" на сочетание "ак", если "б" стоит на нечетном месте.
Спасибо.

@Skippi · 23.03.2011, 18:27

Pascal

var c:char;
    i:longint;
    f1,f2:text;
begin
  assign(f1,'C:\input.txt')  //путь до файла на ввод укажи в кавычках
  assign(f2,'C:\output.txt') //см.выше
  reset(f1);
  rewrite(f2);
  i:=1;
  while not eof(f1) do
   begin
     read(c);
     if (c='а') and (i mod 2 = 0)
     then
      write('е')
     else
     if (c='б') and (i mod 2 = 1)
     then
      write('ак')
     else
      write(c);
   end;
  close(f1);
  close(f2);
end.

@qwerty122 · 23.03.2011, 20:42 **[ТС]**

а можно без использования ассигнов? как нибудь более проще

Добавлено через 1 час 53 минуты
прошу, сделайте кто-нибудь

@Skippi · 24.03.2011, 11:07

че, сложно их удалить чтоли???
и вообще ты про текст спрашивал...а текст это файл обычно
если без файлов, то это надо отдельную строку заводить
если надо, бери тот код что написал...итак долго его писал

Добавлено через 2 минуты

Pascal

var c:char;
    i:longint;
    f1,f2:text;
    s:string;
begin
  read(s); 
  fir i:=1 to length(s) do
   begin
     if (s[i]='а') and (i mod 2 = 0)
     then
      write('е')
     else
     if (s[i]='б') and (i mod 2 = 1)
     then
      write('ак')
     else
      write(s[i]);
   end;
end.

делов на 30 секунд

В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте

Решение

Решение

@qwerty122 1 / 1 / 1 Регистрация: 06.03.2011 Сообщений: 43
		1
	В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте 23.03.2011, 17:26. Показов 3215. Ответов 3 Метки нет (Все метки) В каждом слове текста замените "а" на букву "е", если "а" стоит на четном месте, и заменить букву "б" на сочетание "ак", если "б" стоит на нечетном месте. Спасибо. 0

@qwerty122 1 / 1 / 1 Регистрация: 06.03.2011 Сообщений: 43
	23.03.2011, 20:42 [ТС]	3
	а можно без использования ассигнов? как нибудь более проще Добавлено через 1 час 53 минуты прошу, сделайте кто-нибудь 0

	24.03.2011, 11:07