Определить сколько слов в строке является палиндромом (читаются одинаково как слева направо, так и справа налево). в основной программе написать подпрограмму, определяющую является ли слово палиндромом.

281

431

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

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

magiclotas

Информатика

4,8(66 оценок)

// pascalabc.net 3.1, сборка 1250 от 28.05.2016 function ispalindrom(w: string): =(w.length> 1? w=reversestring(w): false); begin var s: =readlnstring('> '); writeln('палиндромов: ',s.towords.where(w-> ispalindrom() end. тестовое решение > ваш заказ уже несут - слышу топот официанта палиндромов: 3

djghjc13

Информатика

4,6(13 оценок)

program a1; vara,b,c,r: byte; l,k: word; beginread(l); a: =l mod 10; b: =l div 10 mod 10; c: = l div 100 mod 10; r: = l div 1000 mod 10; k: =c*1000+r*100+a*10+b; write(k); end.