Function IsEqual(n:longint):boolean; { возвращает True, если первая и последняя цифры числа равны } var s:string; begin Str(n,s); IsEqual:=(s[1]=s[Length(s)]) end;
var k:longint; begin Write('Введите натуральное число '); Read(k); Write('Первая и последняя цифры введенного числа '); if not IsEqual(k) then Write('не '); Writeln('совпадают') end.
Тестовые решения: Введите натуральное число 15342403 Первая и последняя цифры введенного числа не совпадают
Введите натуральное число 745370007 Первая и последняя цифры введенного числа совпадают
Возможность создавать новый документ, используя при этом шаблоны.Возможность одновременно открывать и работать не с одним числом документов.Автоматически проверять орфографию, стилистику и грамматику при вводе текста в документ.Возможность автоматические корректировать ошибки, которые больше всего повторяются в написанном.Включает в себя расширенные возможности по форматированию документа.Возможность применять стили для быстрого форматирования документа.Включает в себя удобные механизмы по работе со сносками, ссылками, колонтитулами.Позволяет включать в текст элементы, которые были созданы в других программах, входящих в Microsoft Office: электронные таблицы, графические изображения или фотографии, графику, видеоизображения, звуки и многое другое.Возможность подготавливать гипертекстовые документы Internet и простые электронные таблицы.Возможность автоматические создавать указатели и оглавление документа.Возможность для отправки готового документа сразу из Word'a по электронной почте или же другому человеку или предприятию на факс.Содержит встроенную объемную систему и мастер подсказок.
{ возвращает True, если первая и последняя цифры числа равны }
var
s:string;
begin
Str(n,s);
IsEqual:=(s[1]=s[Length(s)])
end;
var
k:longint;
begin
Write('Введите натуральное число '); Read(k);
Write('Первая и последняя цифры введенного числа ');
if not IsEqual(k) then Write('не ');
Writeln('совпадают')
end.
Тестовые решения:
Введите натуральное число 15342403
Первая и последняя цифры введенного числа не совпадают
Введите натуральное число 745370007
Первая и последняя цифры введенного числа совпадают