ответьте на вопросы: что такое массив? что входит в систему команд исполнителя робика? какова среда его обитания? в каких случаях может возникнуть отказ? 2 самостоятельно составьте алгоритм заполнения массива для исполненителя робика. запишите на рисунок 12.8 имя массива и результат выполнения алгоритма.
var s:string;
i,s1:integer;
begin;
readln(s1); //вводим число
str(s1,s);
for i:=1 to length(s) div 2+length(s) mod 2 do
{цикл от начала и до середины/центра в зависимости от чётности}
begin;
if s[i]<>s[length(s)+1-i] then
{если 1 символ не равен последнему, второй-предпоследнему и т.д.}
begin;
writeln('Не палиндром');
exit; //если это условие хоть раз верно-программа завершается
end;
end;
writeln('Палиндром'); //если условие не разу не оказалось верным
end.
Пример ввода:
121
Пример вывода:
Палиндром