set907
?>

Перевести с паскаля на c# программу найти 10 первых натуральных чисел, оканчивающихся на цифру 7, кратных числу 9 и находящихся в интервале, левая граница которого равна 100. var i, v : integer; begin v: =99; for i : = 1 to 10 do begin while true do begin inc(v); if ((v - 7) mod 10 = 0) and (v mod 9 = 0) then begin writeln(v); break; end; end; end end.

Информатика

Ответы

melnik-738
Вот так можно перевести, если я не ошибся
Перевести с паскаля на c# программу найти 10 первых натуральных чисел, оканчивающихся на цифру 7, кр
milenaochirova01017424

def check_perfect(number:int, dividers = []):

for i in range(1, number):

 if number%i == 0:

  dividers.append(i)

if sum(dividers) == number:

 return 1

def get_div(num, div = []):

for i in range(1, num):

 if num%i == 0:

  div.append(i)

return div

def main():

number = int(input())

if check_perfect(number):

 print(' '.join(str(num) for num in get_div(number)))

else:

 print(0)

if __name__ == '__main__':

main()

Объяснение:

На случай, если сайт сломает табуляции в коде (А он их сломает), ниже представлен скриншот оригинала кода. Программа протестирована.


совершенным называется число, равное сумме всех своих делителей, меньших его самого (например, число
ibzaira

Аппаратное обеспечение компьютера - это все электронные и механические устройства компьютера.

Структура аппаратного обеспечения персонального компьютера:

системная плата (материнская плата) - на ней размещены:процессор (центральный процессор)+система охлаждения,внутренняя память,системная шина,слоты.платы периферии (могут быть встроены в системную плату) - на них размещены контроллеры устройств ввода-вывода+разъемы:контроллеры дисководов,видеокарта (видеоконтроллер, графическая плата),звуковая карта (звуковой контроллер, звуковая плата),сетевая карта (сетевой адаптер, сетевая плата),контроллеры других устройств,устройства ввода и вывода:дисководы:дисковод на жеском диске,привод гибких дисков (дисковод для дискет),привод оптических дисков (привод CD-ROM, CD-RW, DVD-ROM, DVD-RW),стримердругие устройства;блок питания

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Перевести с паскаля на c# программу найти 10 первых натуральных чисел, оканчивающихся на цифру 7, кратных числу 9 и находящихся в интервале, левая граница которого равна 100. var i, v : integer; begin v: =99; for i : = 1 to 10 do begin while true do begin inc(v); if ((v - 7) mod 10 = 0) and (v mod 9 = 0) then begin writeln(v); break; end; end; end end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Tatyana Anton1475
mar77873
mos-5nica
nikitavertiev98400
llmell6
aleksagrbec39
preida-2
ilkindadashov935232
ivnivas2008
Ka-shop2791
shturman-765255
barnkim
ann328389
tigo1
shabunina17