Помогите с информатикой что поменять в проге ниже чтобы показывало не количество цифр в числе а нечетное ( или четноe) количество
Var k : integer;
function kol(x: integer): integer;
var k: integer;
begin
k := 0;
repeat
x := x div 10;
inc(k)
until x = 0;
kol := k
end;
begin
write (k); readln (k);
writeln(k, 'kol ', kol(k));
end.
чтобы покозывало не количество цифр в числе а нечетное (четно)количество
Ответы
Ответ дал:
0
Var k : integer;
function kol(x: integer): integer;var k: integer;begink := 0;repeatx := x div 10;inc(k)until x = 0;kol := kend;beginreadln (k);if kol(k) mod 2 = 0 then begin writeln('Чётное');endelse begin writeln('Нечётное');end;end.
function kol(x: integer): integer;var k: integer;begink := 0;repeatx := x div 10;inc(k)until x = 0;kol := kend;beginreadln (k);if kol(k) mod 2 = 0 then begin writeln('Чётное');endelse begin writeln('Нечётное');end;end.
Ответ дал:
0
не совсем понял что нужно после
Ответ дал:
0
readln (k);
if kol(k) mod 2 = 0 then
if kol(k) mod 2 = 0 then
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад
8 лет назад
8 лет назад