Question

Pascal

Дано натуральне число n.
a) Скільки цифр в числі n?
b) Скільки парних цифр в числі n

Answer 1

var n:String;
var count:Integer;
var a:array of char;
begin
WriteLn('Введите число n:');
Read(n);
a:= n.ToCharArray();
for var i:= 0 to a.Length-1 do
if strtoint(a[i]) mod 2 = 0 then
count+= 1;
WriteLn('Кол-во цифр в числе: '+a.Length);
WriteLn('Кол-во чётных цифр в числе: '+count);
end.