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

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

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.

var i, j, min, min_i, min_j: integer; a: array[1..5, 1..5] of integer;

begin for i : = 1 to 5 do begin for j : = 1 to 5 do begin a[i, j] : = random(100) + 1; write(a[i, j]: 4); end; writeln; end; min : = 999; for i : = 1 to 5 do for j : = 1 to 5 do if min > a[i, j] then begin min : = a[i, j]; min_i : = i; min_j : = j; end; a[min_i, min_j] : = 0; writeln('массив с замененным минимальным элементом'); for i : = 1 to 5 do begin for j : = 1 to 5 do write(a[i, j]: 4); writeln; end; end.

всегда брать столько чтоб спичек на столе оставалось четное

количество  и при этом не делилось на 3

т.е. 4,8,12

не оскорбляю людей,а так же не ругаюсь с друзьями.не ругаюсь " словами".не ворую и не бью.