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