→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ Сообщений: 2 ] 
лююююдиииии!))допоможіть з програмкою.терміново!!! 
Автор Сообщение
Начинающий

Регистрация: 10.12.2013
Сообщения: 1

Репутация: 0 [ ? ]
Сообщение лююююдиииии!))допоможіть з програмкою.терміново!!!
Сформувати динамічний рядок із ланкою-заголовком, вивести його на
друк та визначити, чи є рядок симетричним відносно своєї середини.


10.12.2013 22:32
Профиль Отправить email
Начинающий

Регистрация: 27.12.2013
Сообщения: 2

Репутация: 0 [ ? ]
Сообщение Re: лююююдиииии!))допоможіть з програмкою.терміново!!!
Program spell;
var L,r,z: longint ;
s:string;
i :integer;

begin
r:=1;
readln(s);
L:=length(s);
z:=L div 2;
for i:=1 to l do
if s[i]<>s[L+1-i]then
r:=0;
write(r);
end.
Це показує чи рядок симетричний.


27.12.2013 20:10
Профиль Отправить email
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 2 ] 


Кто сейчас на конференции

Зарегистрированные пользователи: нет зарегистрированных пользователей


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

Перейти:  
© 2013 «Форум программистов Украины»