关闭

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

82人阅读 评论(0) 收藏 举报
分类:

题目描述

从键盘输入三个正整数(均小于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.

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:15161次
    • 积分:108
    • 等级:
    • 排名:千里之外
    • 原创:91篇
    • 转载:0篇
    • 译文:0篇
    • 评论:0条
    文章分类
    文章存档