Question

с клавиатуры вводится целое неотрицательные число определить и вывести количество чётных и нечётных цифр числа

Паскаль, помогите пожалуйста​

Answer 1

Ответ:

program xxxx;

uses crt;

var

i,a,s1,s2:integer;

begin

read(a);

for i:= 1 to a do

if i mod 2 = 0 then s2:=s2+i else s1:=s1=i;

writeln(s1,s2);

end.

Объяснение: