Регистрация
Mpazd
24.07.2022 11:42
Информатика
Есть ответ 👍

Написать программу, которая определяет, является ли введенное слово палиндромом ("перевертышем", при write, lenght и т.п,через паскаль)

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

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

mashkax28марічка
mashkax28марічка
4,5(65 оценок)

//pascalabc.net v3.3 1633

var str: string;

begin

write('введите слово: ');

readln(str);

if reversestring(str) = str then

  writeln('слово является палиндромом')

else

  writeln('слово не является палиндромом');

end.

Dobro118
Dobro118
4,4(25 оценок)
1) var a,b,c: integer; begin read(a,b,c); if (a=b) and(b=c) then   writeln('true') else writeln('false'); end. 2) var a,b,c: integer; begin read(a,b,c); if (a=b) or (a=c) or (b=c) then writeln('true') else writeln('false'); end.

Популярно: Информатика