Question

27) (А. Куканова) Рассматривается множество целых чисел, принадлежащих числовому отрезку (3712;
8432), которые удовлетворяют следующим условиям:
- запись в двоичной и четверичной системах счисления заканчивается одинаковой цифрой;
- кратны 13, 14 или 15.
Найдите количество таких чисел и минимальное из них.

написать программу на паскаль

Answer 1

Ответ:

program kol;

var k, n, min:integer;

begin

  k:=0; min:=8433;

  for n:= 3712 to 8432 do

    if (n mod 2= n mod 4) and (n mod 13=0) and (n mod 14=0) and (n mod 15=0) then

      begin

        if min>n then

        min:=n;

        k:=k+1;

      end;

      Writeln (k,' ',min);

End.