2. учитель проводил диктант по теме “определения”. каждый, из учеников – коля, сережа, ваня, толя, надя - id354327120200112 от mikran 12.01.2020 09:42

Question

Информатика: 2. учитель проводил диктант по теме “определения”. каждый, из учеников – коля, сережа, ваня, толя, надя — ошибся в одном из пяти диктанта, причем все они ошиблись в разных . по окончании работы учащиеся высказались об ошибках, сделанных их одноклассниками, следующим образом. 1-й ученик: “коля ошибся в первом , а ваня – в четвертом”. 2-й ученик: “сережа ошибся во втором, а ваня — в четвертом ”. 3-й ученик: “сережа ошибся во втором, а коля – в третьем ”. 4-й ученик: “толя ошибся в первом , а надя

mikran · Accepted Answer

var s:string;
{функция проверки на палиндром} function palind(s:string):boolean; var i:integer; fl:boolean; begin fl:=true; for i:=1 to length(s) div 2 do if s[i]<>s[length(s)-i+1] then fl:=false; Result:=fl end;

{основная программа} begin writeln('Введите строку...'); readln(s); if palind(s) then writeln('Данная строка является палиндромом!') else writeln('Данная строка НЕ является палиндромом!') end.

Без функции: var s:string;
i:integer; palin:boolean; {основная программа} begin writeln('Введите строку...'); readln(s);
fl:=true; for i:=1 to length(s) div 2 do if s[i]<>s[length(s)-i+1] then fl:=false;
if palin then writeln('Данная строка является палиндромом!') else writeln('Данная строка НЕ является палиндромом!') end.

MOGZ ответил