Дано слово. Поменять местами первую из букв a и последнюю из букв о. Учесть возможность того, что таких букв слове может и не быть

@Genius94 · Регистрация: 21.11.2011

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

Дано слово.Поменять местами первую из букв a и последнюю из букв о.Учесть возможность того, что таких букв слове может и не быть. помогите плизззз!

@CodeR · 10.06.2012, 20:29

Pascal

Var s:string;
    i,j,k:integer;
    b:boolean;
    t:char;
Begin
    write('Введите слово: ');readln(s);
    i:=0;b:=true;j:=0;
    While (i<Length(s))and(b) do
     Begin
      inc(i);
      if s[i]='а' then b:=false;
     End;
    For k:=1 to Length(s) do
     if s[k]='о' then j:=k;
    if (i<>0)and(j<>0) then 
     Begin
      t:=s[i];
      s[i]:=s[j];
      s[j]:=t;
     writeln('s: ',s);
     End
      else writeln('Нету символа а или о');
End.

Добавлено через 17 минут
i < > 0 вот это замени на not b так правильнее будет

@Genius94 · 10.06.2012, 20:32 **[ТС]**

Спасибо. можешь еще помочь с задачками?
1)Даны три различных целых числа, определить, какое из них (первое, второе или третье); среднее(средним назовем число, которое больше или меньше наименьшего из данных чисел, но меньше наибольшего).
2)Дано предложение. Найти наибольшее количество идущих подрят пробелов.
Даны три квадратных уравнения. Сколько из них имеют вещественные корни
Сколько их них имеют вещественные корни.(Определить функцию, позволяющую распохновать наличие вещественных корней в квадратном уравнении.)

@КонецСвета · 10.06.2012, 21:55

Genius94, выносите 1 и 2 задачу отдельными темами. Помните про правила форума.

@Genius94 1 / 1 / 0 Регистрация: 21.11.2011 Сообщений: 121
		1
	Дано слово. Поменять местами первую из букв a и последнюю из букв о. Учесть возможность того, что таких букв слове может и не быть 10.06.2012, 19:50. Показов 4082. Ответов 3 Метки нет (Все метки) Дано слово.Поменять местами первую из букв a и последнюю из букв о.Учесть возможность того, что таких букв слове может и не быть. помогите плизззз! 0

@Genius94 1 / 1 / 0 Регистрация: 21.11.2011 Сообщений: 121
	10.06.2012, 20:32 [ТС]	3
	Спасибо. можешь еще помочь с задачками? 1)Даны три различных целых числа, определить, какое из них (первое, второе или третье); среднее(средним назовем число, которое больше или меньше наименьшего из данных чисел, но меньше наибольшего). 2)Дано предложение. Найти наибольшее количество идущих подрят пробелов. Даны три квадратных уравнения. Сколько из них имеют вещественные корни Сколько их них имеют вещественные корни.(Определить функцию, позволяющую распохновать наличие вещественных корней в квадратном уравнении.) 0

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	10.06.2012, 21:55	4
	Genius94, выносите 1 и 2 задачу отдельными темами. Помните про правила форума. 0