Найдите ошибку в коде

@Neazy · Регистрация: 16.12.2017

Некорректно считается кол-во чисел в которых присутствует 6. Исправить не добавляя ничего "нового". А то это школьная программа, не засчитают

Pascal

var
  x, s, k, z, n,n1, min: integer;
 
begin
  k := 0;
  x := 3465;
  s := 0;
  min := 32767;
  writeln('Введите целое число , 0 - окончание ввода');
  while x <> 0 do
  begin
    readln(x);
    if x <> 0 then
    begin
      s := s + x;
      if x < min then
        if x <> 0 then
          min := x;
    end;
    n:=x;
    while (n<>0) do 
    begin
      z := n mod 10;
        if z=6 then k:=k+1;
      n := n div 10;
        if n=6 then k:=k+1;
    end;
  end;
  writeln('SUMMA=', s);
  writeln('MINIMUM=', min);
  writeln('Кол-во чисел в которых есть хотя бы одна цифра шесть  =', k);
end.

Добавлено через 2 минуты
Понимаю что условие на проверку цифры 6 нужно в конец. Но что то не выходит

@FFPowerMan · 09.11.2018, 19:23

Вот эту:

Сообщение от Neazy

Pascal

1	if x <> 0 then

и вот эту:

Сообщение от Neazy

Pascal

1	if n=6 then k:=k+1;

строки удалить. Т.е. строки 17 и 26.

@Puporev · 09.11.2018, 19:25

Pascal

z:=0;
while (n<>0)and(z<>6) do
 begin
   z := n mod 10;
   if z=6 then k:=k+1 else  n := n div 10;
 end;

@bormant · 09.11.2018, 20:45

Незачем по 2 раза проверять одно и то же внутри цикла:

Pascal

1
2
3

repeat z:=n mod 10; n:=n div 10;
until (z=6) or (n=0);
if z=6 then Inc(k);

Опции темы

Найдите ошибку в коде

Решение