Ввести н, потом массив из н элементов. вывести сумму всех эл.массива которые делятся на 7, кончаются на 6, состоят из 4 знаков. ввести координаты коня на шахм. доске. вывести все ходы которые он может сделать в 1 раз факториал числа а+ фак. б

1

Ответы и объяснения

2013-05-23T15:07:32+00:00

program zadacha;

var A:array [1..10000] of integer;

i,n,sum:integer;

begin

readln(n);

for i:=1 to n do

 readln(A[i]);

sum:=0;

for i:=1 to n do

 if (A[i] mod 7=0) and (A[i] mod 10=6) and (A[i]>999) and (A[i]<10000) then sum:=sum+A[i];

writeln(sum);

end.