Дано двузначное число n Если сумма цифр Этого числа чётные то вывести 1 иначе 0 написать код программы по готовой блок схеме​

fffffffhhhhhh fffffffhhhhhh    3   15.05.2020 10:12    2

Ответы
аграил9 аграил9  14.10.2020 19:31

var n,s,k:Integer;

begin

s:=0;

k:=0;

readln(n);

if (n <10) or (n>99) then

begin

 writeln('False');

 exit;  

 end;

s:=(n div 10)+(n mod 10);

if (s mod 2 = 1) then begin

k:=0;

end;

if (s mod 2 = 0) then begin

k:=1;

end;

writeln(k);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика