Question

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

Answer 1

Ответ:

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.