Посчитать сколько нечетных цифр в n значном числе! (паскаль)

Question

Информатика

Евгеня

5 марта, 16:51

Посчитать сколько нечетных цифр в n значном числе! (паскаль)

+3

Ответы (1)

Знаете ответ?

Созонт · Answer 1

Program zadanie;

var i, n, a:integer;

begin

readln (n) ;

for i:=1 to n do

begin

if (i mod 2) = 1 then a:=a + 1;

end;

writeln (a) ;

readln;

end.

если я правильно понял то так, если нет, пиши переделаю!