Infiniti_Inter

III/13

May 12th, 2021 (edited)
472
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program III;//название
  2. var//объявление переменных
  3. digit, number:integer;//digit - цифра числа, number - само число
  4. begin
  5.   Readln(number);//считываем число
  6.   digit := number MOD 10;//выделяем последнюю цифру, чтобы использовать сложное условие
  7.   if ((number MOD 10 = digit) and (number DIV 10 = digit)) then//если последняя цифра числа равна digit и первая цифра числа равна digit
  8.     WriteLN('True')//вернуть истину
  9.   else//иначе
  10.     WriteLN('false');//ложь
  11. end.
  12.  
  13.  
RAW Paste Data