1. Составьте программу, которая определяет, является ли сумма цифр введенного целого трехзначного числа четным числом.

2. Составьте программу, которая определяет, является ли последняя цифра введенного целого числа нечетным числом.

8 класс.

1)

var a: integer;

begin

write ('Введите число: ') ;

read (a) ;

if (a div 10 + a mod 10 + a div 10 mod 10) mod 2 = 0

then writeln ('Сумма цифр четна')

else writeln ('Сумма цифр нечетна')

end.

2)

var a: integer;

begin

write ('Введите число: ') ;

read (a) ;

if a mod 2 = 0 then writeln ('Последняя цифра числа четная')

else writeln ('Последняя цифра числа нечетная')

end.