Question

Дано случайное натуральное трехзначное число Х. Определить: является ли оно четным, оканчивается ли оно цифрой 5? ( тоже паскаль)

Answer 1

Program hhh54;
var x: longint;
begin
  randomize;
  x:=random (900)+100;
  if x mod 2 = 0 then writeln ('ЧЁТНОЕ')
  else writeln ('НЕЧЁТНОЕ');
  if x mod 10 = 5 then writeln ('ОКАНЧИВАЕТСЯ')
  else writeln ('НЕ ОКАНЧИВАЕТСЯ');
end.

Answer 2

спасибо большое