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

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

Задать свой вопрос
Стефания Ильчекес
само задание какое?
Виталик Сергачев
d:=d+1 поменяй на b:=b+1 и заключительную буковку в выводе на b
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.

Надежда Коновченко
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/3564726readmore
Элина
тут I отвечает за сотки j за десятки и k за единицы,т. к единицы состоят из диопазона от 0 до 9,как и остальные
Семён Зотчик
позже идёт проверка на не равенство(<> значит не одинаково)
Арина Мушкарова
в конце просто составляется число
Виктория Сосковская
writeln('100 * a + 10 * b + c'); замените на write((100 * a + 10 * b + c):4);
Поэтому что тип данных d - integer, а это целые числа, d пробуй поменять на float либо double
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт