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

Форум программистов: 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 ] 


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

Зарегистрированные пользователи: Google [Bot], Yahoo [Bot]


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

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