15.11.2008, 19:30
|
|
Новичок
Регистрация: 04.11.2008
Сообщений: 3
Провел на форуме:
13639
Репутация:
0
|
|
А что решение такое большое?
Просто у меня есть эта задача в qbasic (я её переделываю для pascal), и там намнооого меньше кода.
Вот решение на qbasic'е:
Код:
input a,b
if a>b then x=a else x=b
for s=x to a*b step 1
if s/a = s/a and s/b = s/b then print s: end
next s
Последний раз редактировалось Player_1; 15.11.2008 в 19:46..
|
|
|