4849:符合条件的数 分数: 3

题目描述

从键盘输入三个正整数（均小于10），用这三个数分别作为除数，输出余数均为1的最小的十个数。

输入格式

三个正整数。

输出

满足条件的10个整数，整数之间用一个空格隔开，行末不要出现多余空格。

样例输入

2 3 5

样例输出

1 31 61 91 121 151 181 211 241 271

program p4849;
var a,b,c,i:integer;
    s:longint;

    m:array[1..15] of integer;
begin
 read(a,b,c);
 s:=0;
 while i<>10 do
 begin
  s:=s+1;
  if (s mod a=1) and (s mod b=1) and (s mod c=1) then begin  i:=i+1;
                                                            m[i]:=s;
                                                     end;
 end;
 for i:=1 to 9 do
 write(m[i],' ');
 writeln(m[10]);
end.