Паскаль. (используя процедуру или функцию) дано число проверить равны ли первая и последняя цифра числа

DarkPear DarkPear    3   05.07.2019 05:20    0

Ответы
frid1999YT frid1999YT  28.07.2020 17:48
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
Первая и последняя цифры введенного числа совпадают
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика