Составить программу значение 1 если указанное высказывание является истинным и 0 в противном случае: сумма цифр данного двузначного числа N является четным числом
Составить программу значение 1 если указанное высказывание является истинным и 0 в противном случае: сумма цифр данного двузначного числа N является четным числом
Гость
Ответ(ы) на вопрос:
ГостьVar n,n1,n2,sum:integer;
Begin
write('Введите двузначное число: '); readln(n);
n1:=n div 10;
n2:=n mod 10;
sum:=n1+n2;
if (sum mod 2 = 0) then write('1')
else writeln('0');
End.
Не нашли ответ?
Похожие вопросы