Среди целых чисел от n до m найти такие, которые при делении на 9 дают остаток 3 или 4, и найти их количество. Проверить для n=8, m=190 — Pascal(Паскаль)

Program PascalGuru;

var
  i: integer;
  n, m, k: integer;

begin
  write('n= ');
  readln(n);
  write('m= ');
  readln(m);

  i := n - 1;
  k := 0;

  repeat
    inc(i);

    if (i mod 9 = 3) or (i mod 9 = 4) then
    begin
      inc(k);
      writeln(i);
    end;

  until i = m;

  writeln;
  writeln('Kol-vo= ', k);

  readln;

end.

Leave a Comment

7 + 2 =