Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
Еленапрекрасная
0 / 0 / 0
Регистрация: 16.12.2012
Сообщений: 5
1

Подсчитать количество букв, которые останутся на своих местах в данной строке, если её перевернуть

17.12.2012, 19:38. Просмотров 685. Ответов 3
Метки нет (Все метки)

Подсчитать количество букв, которые останутся на своих местах в данной строке, если её перевернуть.

помогите, пожалуйста!)
спасибо заранее)
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.12.2012, 19:38
Ответы с готовыми решениями:

Определить, сколько букв останется на своих местах в данной строке, если ее перевернуть
1) Сколько букв останется на своих местах в данной строке, если ее перевернуть 2) Напечатать...

Подсчитать количество слов в данной строке, подсчитать количество букв а в последнем слове
Дан текст. а) Подсчитать количество слов в данной строке. б) Подсчитать количество букв а в...

Сколько букв останется на своих местах в данной строке, если ее перевернуть
Сколько букв останется на своих местах в данной строке, если ее перевернуть. (С вводам и выводам.)

Сколько букв останется на своих местах в данной строке, если ее символы записать в обратном порядке
Сколько букв останется на своих местах в данной строке, ес¬ли ее символы записать в обратном...

Строка: Сколько букв останется на своих местах в данной строке, если ее символы записать в обратном порядке
Как написать программу по данному условию?? "Сколько букв останется на своих местах в данной...

3
domovou2.0
Дзæуджыхъæу
231 / 203 / 148
Регистрация: 20.09.2012
Сообщений: 421
Записей в блоге: 1
17.12.2012, 20:08 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

вроде бы так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var s,c:string;
    i,j:integer;
begin
writeln;
s:='qwerty uio kak vasi';
j:=0;
for i:=length(s) downto 1 do
    begin
    inc(j);
    c[j]:=s[i];
    end;
j:=0;
for i:=1 to length(s) do
    if s[i]=c[i] then begin write(s[i],' '); inc(J); end;
writeln;
writeln('Kol-vo = ',j);
readln;
end.
и можете еще вот так
Pascal
1
s:='qwerty uio kak ytrewq';
0
Еленапрекрасная
0 / 0 / 0
Регистрация: 16.12.2012
Сообщений: 5
17.12.2012, 20:31  [ТС] 3
спасибо большое! но не могли бы Вы объяснить, что значит:

s:='qwerty uio kak ytrewq'
0
domovou2.0
Дзæуджыхъæу
231 / 203 / 148
Регистрация: 20.09.2012
Сообщений: 421
Записей в блоге: 1
17.12.2012, 21:01 4
Цитата Сообщение от Еленапрекрасная Посмотреть сообщение
s:='qwerty uio kak ytrewq'
это просто строчка в программе
т.е. можно сделать так
Pascal
1
2
3
4
5
6
var s,c:string;
    i,j:integer;
begin
writeln;
s:='qwerty uio kak ytrewq';
j:=0;
0
17.12.2012, 21:01
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.12.2012, 21:01

Сколько букв останется на своих местах в данной строке, ес¬ли ее символы записать в обратном порядке
Сколько букв останется на своих местах в данной строке, ес¬ли ее символы записать в обратном...

Дан текст, в котором слова разделены одним пробелом. а) Подсчитать количество слов в данной строке. б) Подсчитать количество букв а в последнем слове
Дан текст, в котором слова разделены одним пробелом. а) Подсчитать количество слов в данной строке....

Подсчитать количество букв в данной строке
Подсчитать количество букв в данной строке.


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

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

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