Форум программистов, компьютерный форум, киберфорум
Наши страницы
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
GiRO
0 / 0 / 0
Регистрация: 01.10.2014
Сообщений: 5
1

Определить длину строки и количество букв "а" в ней

09.10.2014, 07:12. Просмотров 839. Ответов 1
Метки нет (Все метки)

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

Определить длину введенной строки и количество букв "а" в ней
Ввести фамилию, имя и отчество как одно данное строкового типа.Определить длину...

Определить длину строки и количество букв "а" в ней
10.1) Ввести фамилию, имя и отчество(Потапова Ирина Сергеевна) как одно данное...

Определить длину строки и количество букв «а» в ней
Ввести фамилию, имя и отчество как одно данное строкового типа. Определить...

Определить длину самой длинной подстроки из подряд стоящих букв "а"
Дана символьная строка . Определить длину самой длинной подстроки из подряд...

Подсчитать количество букв "а" в последнем слове данной строки
Собственно вот такая задача: Дано натуральное число n и последовательность...

1
Puporev
Модератор
54586 / 42092 / 29061
Регистрация: 18.05.2008
Сообщений: 99,297
09.10.2014, 09:30 2
Лучший ответ Сообщение было отмечено GiRO как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var s:string;
    n,i,k,f:integer;
begin
writeln('Введите в строку Фамилию Имя Отчество');//вводим на русском языке
readln(s);
n:=length(s);//длина строки
k:=0;//количество букв а
for i:=1 to n do
if UpCase(s[i])='А'then inc(k);//A-русская
f:=pos(' ',s)-1;//длина фамилии
writeln('Длина строки=',n);
writeln('Количество букв а=',k);
writeln('Длина фамилии=',f);
if f>10 then
 begin
  delete(s,1,pos(' ',s));
  write(s);
 end
else
 for i:=1 to f do
 writeln(s[i])
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.10.2014, 09:30

Узнать количество букв "А", и наличие буквы "С" в строке
Дана последовательность символов х1,х2..хn Узнать кол-во букв "А" ,и есть ли...

Определить, что в введенной строке букв "а" больше, чем "б"
Задание : Составить программу, организующую работу с пользователем в диалоговом...

Составьте программу замены в слове Х всех букв "а" и "я" на слог "по"
Составьте программу замены в слове Х всех букв "а" и "я" на слог "по". заранее...


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

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

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