// PascalABC.NET 3.1, сборка 1250 от 28.05.2016 begin var s:=ReadInteger('Введите шестизначное натуральное число:').ToString; if s=ReverseString(s) then Writeln('Это палиндром') else Writeln('Это не палиндром') end.
Тестовое решение Введите шестизначное натуральное число: 158851 Это палиндром
Информационный объект — это описание некоторой сущности (реальногообъекта, явления, процесса, события) в виде совокупности логически связанных реквизитов (информационных элементов) Компьютер это-Электронно-вычислительная машина . Информация- сведения независимо от формы их представления. Персональный компьютер, ПК (англ. personal computer, PC), ПЭВМ (персональная электронно-вычислительная машина) — настольная микро-ЭВМ, имеющая эксплуатационные характеристики бытового прибора и универсальные функциональные возможности.
Рассуждение №1 а) Пусть в первом высказывании истинно первое утверждение и Вася - первый. Тогда утверждение, что Юра второй - ложно, следовательно Юра не второй. б) Если Вася первый, то в четвертом высказывании утверждение о том, что Гриша первый ложно. Следовательно Гриша не первый, а Юра - четвертый. в) Если Юра четвертый, то в пятом высказывании ложно утверждение, что Иван второй. г) Если Иван не второй, то в третьем высказывании истинно утверждение, что Гриша четвертый. Но в б) мы пришли к выводу, что четвертый Юра, а двое не могут быть одновременно четвертыми. Тогда утверждение а) о том, что Вася первый - ложно и надо идти другим путем.
Рассуждение №2 а) Пусть в первом высказывании истинно второе утверждение и Вася не первый, а Юра - второй. б) Если Юра второй, то в четвертом высказывании утверждение что Юра четвертый ложно, следовательно, истинно утверждение о том, что Гриша первый. в) Если Гриша первый, то в третьем высказывании ложно утверждение о том, что Гриша четвертый, но тогда истинно утверждение, что Иван второй. г) Утверждение, что Иван второй, противоречит выводу а), где принимается, что второй Юра. Следовательно, допущение что Юра второй приводит нас к противоречию.
Итог: мы получаем противоречие, полагая, что любое из двух утверждений в высказывании 1 истинно, следовательно, имеются противоречия в условии задачи и она не может быть решена.
begin
var s:=ReadInteger('Введите шестизначное натуральное число:').ToString;
if s=ReverseString(s) then Writeln('Это палиндром')
else Writeln('Это не палиндром')
end.
Тестовое решение
Введите шестизначное натуральное число: 158851
Это палиндром