дано двузначное число n Если сумма цифр Этого числа чётные то вывести 1 иначе 0 написать код программы по готовой блок схеме
Приложения:
minnibaeva02:
Язык?
в каком смысле?
в каком смысле?
в каком смысле?
Ответы
Ответ дал:
15
Ответ:
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.
Похожие вопросы
1 год назад
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад