高兴的小明

高兴的小明

难度级别：A； 运行时间限制：1000ms； 运行空间限制：51200KB； 代码长度限制：2000000B

试题描述

今天，小明很高兴，因为国庆放假了，又恰逢是自己的生日。为了庆祝节日，小明与邻居的小伙伴共n个人相约一起放花炮。他们先同时放响了第一个花炮，随后n个人分别以A1、A2、A3、……An秒的间隔继续放花炮，到最后每人都放了b个花炮（包括第一个）。问：总共可听到多少声花炮响？

输入

共三行，第一行仅一个整数n(n<=10)，第二行是A1、A2、A3、……An共n个整数(每个数<=100,各数间以空格相隔)，第三行只有一个整数b(b<=100)。

输出

仅一行，一个整数（听到的花炮响声数）。

输入示例

3 
1 2 3
4

输出示例

7

其他说明

绍兴市第七届少儿信息学竞赛复赛试题（二）

 提交网址： http://marcool.net/home/problem.htm?problemID=5

 

 

var a:array[0..10000]of longint;
    b:array[1..100]of longint;
    i,j,x,n,m:longint;
begin
    readln(n);
    for i:= 1 to n do read(b[i]);
    readln(m);
    for i:= 1 to n do
        for j:= 0 to m-1 do
            a[j*b[i]]:=1;
    ans:=0;
    for i:= 0 to 10000 do
        if a[i]=1 then inc(x);
    writeln(x);
end.