Считает кол-во четных правильно, а нечетных - нет. В чем может быть проблема?

Question

Считает кол-во четных правильно, а нечетных - нет. В чем может быть проблема?

---

Comments

само задание какое?

---

d:=d+1 замени на b:=b+1 и последнюю букву в выводе на b

Answer 1

Потому что тип данных d - integer, а это целые числа, d попробуй поменять на float или double

Answer 2

program zadacha3_149;

var  

i,s,k,v: integer;

begin  

s:=0;

k:=0;

for i:=1 to 10 do

 begin

  writeln('Введите число: ');

  read(v);

  if (v mod 2=0) then

    s:=s+1

  else  

    k:=k+1;

 end;

writeln('Четных чисел: ',s);

writeln('Нечетных чисел: ',k);  

end.

Comments

i, j, k: integer;begin for i := 1 to 9 do for j := 0 to 9 do for k := 0 to 9 do if (i <> j) and (i <> k) and (j <> k) then writeln(100 * i + 10 * j + k);end.Подробнее - на Znanija.com - https://znanija.com/task/3564726#readmore

---

тут I отвечает за сотни j за десятки и k за единицы,т. к единицы состоят из диопазона от 0 до 9,как и остальные

---

потом идёт проверка на не равенство(<> значит не равно)

---

в конце просто составляется число

---

writeln('100 * a + 10 * b + c'); замените на write((100 * a + 10 * b + c):4);