Кто хорошо знает паскаль! ) написать на языке паскаль)) - вопрос №7627245 от Vanik20011 16.03.2022 23:13

Question

Информатика: Кто хорошо знает паскаль! ) написать на языке паскаль)) дано натуральное число. верно ли, что количество всех его цифр, есть четное число?

Vanik20011 · Answer

Var
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.