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

Question

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

Answer 1

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.