1 / 1 / 0
Регистрация: 22.06.2009
Сообщений: 43
1

С клавиатуры вводится строка длиной N

22.06.2009, 16:18. Показов 692. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
3. С клавиатуры вводится строка длиной N, 2<N<100. Изменить порядок следования букв в словах на противоположный. Например, строка 'Hello, world!!!' должна быть преобразована в 'olleH, dlroW!!!'. Результат вывести на экран.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.06.2009, 16:18
Ответы с готовыми решениями:

Дана строка символов. Нужно утроить букву А в три раза. Предложение вводится с клавиатуры
дана строка символов .нужно утроить букву А в три раза.предложение вводится с клавиатуры ...

дана строка символов .нужно утроить букву А в три раза.предложение вводится с клавиатуры
помогите решить задачу

дана строка символов .нужно утроить букву А в три раза.предложение вводится с клавиатуры помогите пожалуста
дана строка символов .нужно утроить букву А в три раза.предложение вводится с клавиатуры помогите...

С клавиатуры вводится строка. Удалить из строки те слова, в которых встречаются английские буквы "A", "E", "O"
Можете ,пожалуйста,написать программу, без массивов

4
4117 / 999 / 191
Регистрация: 09.04.2009
Сообщений: 4,223
22.06.2009, 16:23 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program imja;
uses crt;
var
i:integer;
s:string;
begin
writeln('vvedite stroky');
readln(s);
for i:=length(s) downto 1 do begin
write(s[i]);
end;
readln;
end.
0
1 / 1 / 0
Регистрация: 09.05.2009
Сообщений: 9
22.06.2009, 16:33 3
program vvod;
Var
str:string;
y,i:integer;
begin
writeln('Введите строку символов');
readln(str);

y:=Length(str);

if (y>2) and (y<100) then

for i:=y to 1 do

write(str[i]);

end.


(Вроде так, ща компилятора под рукой нет если будет ругаться скажи)

Добавлено через 2 минуты 5 секунд
Цитата Сообщение от Jazon_deenAlt Посмотреть сообщение
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
program imja;
uses crt;
var
i:integer;
s:string;
begin
writeln('vvedite stroky');
readln(s);
for i:=length(s) downto 1 do begin
write(s[i]);
end;
readln;
end.
Вы забыли про проверку условия

Добавлено через 1 минуту 16 секунд
А я про downto...

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
program vvod;
Var
str:string;
y,i:integer;
begin
writeln('Введите строку символов');
readln(str);
 
y:=Length(str);
 
if (y>2) and (y<100) then
 
for i:=y downto 1 do
 
write(str[i]);
 
end.
0
4117 / 999 / 191
Регистрация: 09.04.2009
Сообщений: 4,223
22.06.2009, 16:41 4
Ехх уважаемый... оба мы не правы))) должно воопще быть как-то так)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
program imja;
uses crt;
var
k,kn,i,j:integer;
s,sn:string;
begin
kn:=0;
writeln('vvedite stroky');
readln(s);
if (length(s)>2) and (length(s)<100) then begin
s:=s+' ';
for i:=1 to length(s) do begin
if s[i]=' ' then begin
k:=kn+1;
kn:=i-1;
for j:=kn downto k do begin
write(s[j]);
end;
write(s[i]);
end;
end;
end;
readln;
end.
ато у нас все переворачивает) а надо пословно)))

Добавлено через 1 минуту 10 секунд
Вобщем ето вродь как должно быть) есть маленький глючек но все вродь работает)
0
1 / 1 / 0
Регистрация: 09.05.2009
Сообщений: 9
22.06.2009, 16:45 5
Ага =)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.06.2009, 16:45
Помогаю со студенческими работами здесь

Дана строка длиной не более 40 латинских символов
Дана строка длиной не более 40 латинских символов. Последний символ – «.». Слова в тексте разделены...

Вводится строка текста из N символов
1. Вводится строка текста из N символов, слова разделены одним пробелом. Составьте программу,...

С клавиатуры вводится строка "Фамилия Имя Отчество". Изменить вывод строки на "Имя Отчество Фамилия"
С клавиатуры вводится строка &quot;Фамилия Имя Отчество&quot;. Изменить вывод строки на &quot;Имя Отчество...

С клавиатуры вводится двумерный массив...
Здравствуйте! Помогите с 3-мя задачами пожалуйста :) С клавиатуры вводится двумерный массив...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru