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

Определить, состоит ли слово из четного количества букв

08.12.2011, 07:26. Просмотров 1018. Ответов 2
Метки нет (Все метки)

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

1.Задано произвольное слово. Определить, состоит ли оно из четного количества букв.

2.Найти в списке из 7 фамилий все фамилии, состоящие из 5 или 6 букв.

3.Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Определить количество слов, которые содержат ровно три буквы "А".
 Комментарий модератора 
Запрещено создавать темы с множеством вопросов во всех разделах, кроме разделов платных услуг. Один вопрос - одна тема.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.12.2011, 07:26
Ответы с готовыми решениями:

Определить, состоит ли слово из четного количества букв
Решите программу Работа со строковыми переменными пожалуйста 1) Задано...

Дано слово, состоящее из четного количества букв. Поменять местами первую и вторую, третью и четвертую, пятую и шестую,., буквы
Дано слово, состоящее из четного количества букв. Поменять местами первую и...

Дано слово из четного числа букв. Поменять местами его половины
1.Дано слово из четного числа букв.Поменять местами его половины.

Вывести все сочетания букв, из которых состоит слово, указанное юзером
Написать программу, которая выводит все сочетания букв, из которых состоит...

Определить, присутствует ли в начале файла слово ‘Unit’. Слово не зависит от регистра букв
- Ввести с клавиатуры произвольное имя текстового файла. - Найти на жестком...

2
Gxost
39 / 39 / 30
Регистрация: 07.12.2010
Сообщений: 114
08.12.2011, 11:02 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
uses crt;
var
s:string;
begin
writeln('Ââåäèòå ñëîâî');
readln(s);
if length(s) mod 2 =0 then writeln('Ñëîâî ñîñòîèò ГЁГ§ Г·ГҐГІГ*îãî êîëè÷åñòâГ* ГЎГіГЄГў')
else writeln('Ñëîâî ñîñòîèò ГЁГ§ Г*ГҐ Г·ГҐГІГ*îãî êîëè÷åñòâГ* ГЎГіГЄГў');
end.
Добавлено через 15 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
const
n=7;
var
i:integer;
s:string;
a:array[1..n] of string;
begin
for i:=1 to n do
begin
writeln('Ââåäèòå ГґГ*ìèëèþ ',i,' ÷åëîâåêГ*');
readln(a[i]);
end;
for i:=1 to n do
begin
if length(a[i]) in [5..6] then writeln('Г”Г*ìèëèÿ "',a[i],'" ñîñòîèò ГЁГ§ ',length(a[i]),' ГЎГіГЄГў')
end;
end.
1
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
08.12.2011, 14:04 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от sunrise7 Посмотреть сообщение
3.Дана строка, состоящая из русских слов, разделенных пробелами (одним или несколькими). Определить количество слов, которые содержат ровно три буквы "А".
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var s,sl: string;
    i,j,ks,kb: integer;
begin
write('s=');
readln(s);
s:=s+' ';
sl:='';
for i:=1 to length(s) do
    if s[i]<>' ' then sl:=sl+s[i] else
       begin
       kb:=0;
       for j:=1 to length(sl) do
           if sl[j]='а' then inc(kb);
       if kb=3 then inc(ks);
       sl:='';
       end;
if ks=0 then writeln ('Слов с 3 "а" нет') else
   writeln ('Количество словс с 3 "а" = ',ks);
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.12.2011, 14:04

Определить, присутствует ли в начале файла слово ‘Unit’. Слово не зависит от регистра букв
- Ввести с клавиатуры произвольное имя текстового файла. - Найти на жестком...

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

Строка состоит из 3-ех слов.Определить какое из слов содержит наибольшее количество гласных букв
Строка состоит из 3-ех слов.Определить какое из слов содержит наибольшее...


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

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

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