Консольные операционные системы. В чет отличие от «оконных» операционных систем текс придумать САМИМ.

221

353

Посмотреть ответы 1

Ответы на вопрос:

Агсим

Информатика

4,7(67 оценок)

Var st: string; l,i: integer; b: boolean; begin readln(st); l: =length(st); b: =true; for i: =1 to l div 2 do if st[i]< > st[l-i+1] then b: =false; if b then writeln('слово - палиндром') else writeln('слово - не палиндром'); end. пример: казак слово - палиндром