1.Составьте программу, которая определяет, является ли сумма цифр введенного целого трехзначного числа четным числом. 2.Составьте программу, которая определяет, является ли последняя цифра введенного целого числа нечетным числом. 8 класс.
Answers & Comments
A1dar1) 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.
Answers & Comments
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.