Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 14.05.2014, 18:16   #1 (permalink)
НастяКозлова
Новичок
 
Регистрация: 05.04.2014
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите, пожалуйста, написать программу на языке Паскаль

Помогите пожалуйста, написать программу в Паскале:
Программа, которая для введенного текста (строки символов) переставляет символы в обратном порядке.
НастяКозлова вне форума   Ответить с цитированием

Старый 14.05.2014, 18:16
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Сейчас вам самое время посмотреть на эти темы

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

Старый 14.05.2014, 19:19   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,863
Сказал(а) спасибо: 317
Поблагодарили 542 раз(а) в 183 сообщениях
Репутация: 101510
По умолчанию

Цитата:
Сообщение от НастяКозлова Посмотреть сообщение
Помогите пожалуйста, написать программу в Паскале:
Программа, которая для введенного текста (строки символов) переставляет символы в обратном порядке.
Задача века, однако... Почти что и неразрешимая. Вот разве что так попробовать :
Код:
Var
 S1,S2:String;
 i:Byte;
Begin
 Writeln('Enter the string:');
 Readln(S1);
 S2:='';
 for i:=Length(S1) downto 1 do S2:=S2+S1[i];
 Writeln('New string:');
 Writeln(S2);
 Readln
End.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 15.05.2014, 18:18   #3 (permalink)
НастяКозлова
Новичок
 
Регистрация: 05.04.2014
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
Задача века, однако... Почти что и неразрешимая. Вот разве что так попробовать :
Код:
Var
 S1,S2:String;
 i:Byte;
Begin
 Writeln('Enter the string:');
 Readln(S1);
 S2:='';
 for i:=Length(S1) downto 1 do S2:=S2+S1[i];
 Writeln('New string:');
 Writeln(S2);
 Readln
End.
Спасибо огромное!))
НастяКозлова вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 17:26.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.