1. Дано натуральное число: 1) найти количество цифр данного числа…

На паскале: varn,s,p: integer; beginread (n); p: =n mod 10; if p mod 2=0 then writeln ('оканчивается на четную цифру') else writeln ('оканчивается на четную цифру'); while n>0 dobeginn: =n div 10; s: =s+1; end; writeln ('количество цифр в числе', s); end.