Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
Няка
2 / 2 / 0
Регистрация: 18.04.2010
Сообщений: 31
1

Определите, есть или нет в данном слове все буквы слова "гига"

09.05.2010, 13:48. Просмотров 1116. Ответов 1
Метки нет (Все метки)

Определите, есть или нет в данном слове все буквы слова "гига".
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
09.05.2010, 13:48
Ответы с готовыми решениями:

Составить програму, которая б после каждой буквы "е" в данном слове дописывала букву "о" и меняла словосочетание "да" на "нет"
Составить програму, которая б после каждой буквы "е" в данном слове дописывала...

Напишите программу, выясняющую, есть ли в слове X буква "к", и, если есть, то замените все буквы "а" в этом слове на "с"
Напишите программу, выясняющую, есть ли в слове X буква "к", и, если есть, то...

Напишите программу для проверки, есть ли в слове X буква "о". Если есть, то замените все буквы "о" на "ку"
ребятки, очень прошу помогите!!))) вот такую штуку надо сделать в паскале, а я...

Составить процедуру которая заменяет в данном слове все буквы "n" на "m"
Составить процедуру, которая:заменяет в данном слове все буквы "n" на "m"...

Распечатать все слова, в состав которых входят буквы "a", "o" или "и"
Дана строка символов. Группу символов, разделенную с одной или обеих сторон...

1
Artishok
ЧакЭ одобряЭ
280 / 279 / 84
Регистрация: 27.12.2009
Сообщений: 1,767
09.05.2010, 14:47 2
Лучший ответ Сообщение было отмечено Няка как решение

Решение

вот как говориться решение "в лоб"
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
  s: string;
  kol1, kol2, kol3, i: integer;
 
begin
  kol1 := 0;
  kol2 := 0;
  kol3 := 0;
  readln(s);
  for i := 1 to length(s) do 
  begin
    if s[i] = 'г' then
      inc(kol1);
    if s[i] = 'и' then
      inc(kol2);
    if s[i] = 'а' then
      inc(kol3);
  end;
  if (kol1 <> 0) and (kol2 <> 0) and (kol3 <> 0) then 
    writeln('можно составить слово')
  else
    writeln('букв не хватает');
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.05.2010, 14:47

Напишите программу, выясняющую, есть ли в слове X буква "a", стоящая на нечётном месте после буквы "к"
Напишите программу, выясняющую, есть ли в слове X буква &quot;a&quot;, стоящая на...

Определите, каких букв, "а" или "б", в слове Х больше
Определите, каких букв, &quot;а&quot; или &quot;б&quot;, в слове Х больше.

Составить процедуру, которая: вставляет в данном слове букву "о" после каждой буквы
Составить процедуру, которая: вставляет в данном слове букву &quot;о&quot; после каждой...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru