Срочно, кто очень хорошо знает паскаль!)
Задача написать на языке паскаль))
Дано натуральное число. Верно ли, что количество всех его цифр, есть четное число?
Задача написать на языке паскаль))
Дано натуральное число. Верно ли, что количество всех его цифр, есть четное число?
More Questions From This User See All
Answers & Comments
a, n: integer;
begin
n := 0;
read(a);
while a > 0 do
begin
a := a div 10;
n := n + 1;
end;
if(n mod 2 = 0) and (n <> 0) then write('Верно')
else write('Неверно');
end.