Ввести слово, вывести "ДА" если первый и последний символ совпадает, в противном случае вывести "НЕТ"

@AndreuProger · Регистрация: 07.05.2015

@volvo · 06.10.2015, 23:10

Pascal

begin
  var s : string := ReadString('Введите слово');
  writeln(s.EndsWith(s[1]) ? 'Да' : 'Нет');
end.

@AndreuProger · 06.10.2015, 23:32 **[ТС]**

А есть еще какие-либо способы?

@volvo · 06.10.2015, 23:37

Да сколько угодно. Например, вот такой (стиль Турбо-Паскаля) :

Pascal

var s : string;
begin
  Readln(s);
  if s[1] = s[Length(s)] then writeln('Да') else writeln('Нет');
end.

Решение

@AndreuProger 0 / 0 / 0 Регистрация: 07.05.2015 Сообщений: 41
		1
	Ввести слово, вывести "ДА" если первый и последний символ совпадает, в противном случае вывести "НЕТ" 06.10.2015, 22:49. Показов 3055. Ответов 3 Метки нет (Все метки) Ввести слово, вывести "ДА" если первый и последний символ совпадает, в противном случае вывести "НЕТ" 0

@AndreuProger 0 / 0 / 0 Регистрация: 07.05.2015 Сообщений: 41
	06.10.2015, 23:32 [ТС]	3
	А есть еще какие-либо способы? 0

Опции темы