|
#1
|
|||
|
|||
нужна помощь
написать программу.Сколько имеется двузначных чисел, сумма квадратов цифр которых делится на 13?
|
#2
|
|||
|
|||
вы потом исходники за деньги чтоли продаете? )) нафига вам проги эти?
P.S.: я думаю вам нужно сразу в раздел работа, и сразу все вопросы там изложить... взялся из неоткуда, ничего не прошу, помогаю просто так ICQ: 593977748 - стучать в случае КРАЙНЕЙ необходимости, ну, или если вы со Ставрополя Последний раз редактировалось Assistant, 26.04.2011 в 22:27. |
#3
|
||||
|
||||
надо подсказать - спроси совета. тут врятли кто-то весь код напишет.(это так, на будущее).
Алгоритм: проход по числам от 10 до 99 и проверяем сумму квадратов. Код:
for i:= 1 to 9 do for j:=0 to 9 do //любые проверки и вычисления; i - старший разряд, j - младший. jmp $ ; Happy End! The Cake Is A Lie. |
#4
|
|||
|
|||
Если за деньги - пусть с нами поделится
Цитата:
Код:
var i, count: Integer; begin count:= 0; for i:= 10 to 99 do if (Sqr(i mod 10) + Sqr(i div 10)) mod 13 = 0 then Inc(count); Edit1.Text:= IntToStr(count); end; Последний раз редактировалось Raskolnikov, 26.04.2011 в 22:33. |
#5
|
|||
|
|||
какие деньги,курсач не могу сделать!!!!!!!!!!!!!!!!!!!!!!
|
#6
|
||||
|
||||
Вот и нужно раскошелиться
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |