Program gt;
var n,a,i,s,q:integer;
begin
read(n);
read(a);
s:=0;
for i:=1 to n do
begin
read(q);
if(q mod a=0)then s:=s+q;
end;
writeln(s);
end.
<span>По ссылке наверняка что-нибудь есть:
http://bfy.tw/EOx3</span>
Пожалуйста сфоткай задание полностью, ничего не могу понять.
Var a,n,p,i:integer;
begin
write('Введите а и n: ');
readln(a,n);
p:=a;
for i:=1 to n-1 do
p:=p*(a+i);
writeln('Ответ: ',p);
<span>end.
var a,n,p,i:integer;
begin
write('Введите а и n: ');
readln(a,n);
p:=a;
while i<n-1 do
begin
i:=i+1;
p:=p*(a+i);
end;
writeln('Ответ: ',p);
<span>end.</span></span>
Такая информация называется Достоверной