посчитать сколько нечетных цифр в n значном числе! (паскаль)
Answers & Comments
Beetlejuice541
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. если я правильно понял то так,если нет,пиши переделаю!
Answers & Comments
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.
если я правильно понял то так,если нет,пиши переделаю!