Question

20 баллов.Написать программу на паскале

дано трехзначное число. определить верно ли последняя цифра этого числа четная

Answer 1

Ответ:

program Test;

var

 n, t: Integer;

 b: Boolean;

begin

 Write ('Введите трехзначное число: ');

 ReadLn (n);

 if (n >= 100) and (n <= 999) then begin

   if (n mod 10) mod 2 = 0 then

     WriteLn ('четная')

   else

     WriteLn ('не четная');

 end else

   WriteLn (n, ' - не трехзначное');

 ReadLn;

end.