powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Программирование [игнор отключен] [закрыт для гостей] / подскажыте как решить задачку
4 сообщений из 4, страница 1 из 1
подскажыте как решить задачку
    #35806997
rtry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
кто знает можете подсказать можно решить в free pascal
Превратить текст, переставив в каждом слове буквы в обратном порядке.
...
Рейтинг: 0 / 0
подскажыте как решить задачку
    #35807027
т е если вводится hello world, то ответ будет
olleh dlrow?
...
Рейтинг: 0 / 0
подскажыте как решить задачку
    #35807034
rtry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
да
...
Рейтинг: 0 / 0
подскажыте как решить задачку
    #35807098
Комиляцию проводил под Турбо Паскаль, но думаю под Фри Паскаль тоже откомпилирует, если не будет, то сообщи ошибки:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
program slova;
uses
	crt;
var
	s : string;
	m : byte;
	tmp : string;
	i : byte;
begin
	clrscr;

	write('Vvedite stroku: ');
	readln(s);

	m := pos(' ', s);
	while(m <>  0 ) do
	begin
		tmp := copy(s,  1 , m -  1 );
		for i := length(tmp) downto  1  do
		begin
			write(tmp[i]);
		end;
		write(' ');
		delete(s,  1 , m);
		m := pos(' ', s);
	end;

	tmp := s;
	for i := length(tmp) downto  1  do
	begin
		write(tmp[i]);
	end;
	readln;
end.

P.S. уходи с этого форума, здесь мало кто подскажет по существу. Имеются гораздо лучше, особенно по паскалям разным.
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Программирование [игнор отключен] [закрыт для гостей] / подскажыте как решить задачку
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]