1 Востаннє редагувалося Torbins (11.12.2013 12:36:59)

Тема: Робота з рядками, друк

:[
Сформувати динамічний рядок із ланкою-заголовком, вивести його на
друк та визначити, чи є рядок симетричним відносно своєї середини.(в паскалі)

2 Востаннє редагувалося Chemist-i (10.12.2013 23:14:37)

Re: Робота з рядками, друк

S := 'рядок';
a := 0;
for i:=1 to Length(s) div 2 do
  begin
    if s[i] = s[Length(s)-i) then
      inc(a);
  end;

if a = (Length(s) div 2) then
  messageBox(0,'Рядок симетричний, '', MB_OK);