Написать программы на тему Do...loop

[ProgFrog]

1) Вычислить такую сумму квадратов натуральных чисел, кратных m, и кубов чисел, кратных k, которая не превосходит некоторого наперед заданного числа S. Определить, сколько всего чисел учтено при вычислении суммы.

[doober]

вычислил
1007154
6

[ProgFrog]

мне нужен текст программы ))))

[doober]

мне нужен текст программы ))))

А мне убитые еноты

[kuklp]

Сообщение от ProgFrog

1) Вычислить такую сумму квадратов натуральных чисел, кратных m, и кубов чисел, кратных k, которая не превосходит некоторого наперед заданного числа S. Определить, сколько всего чисел учтено при вычислении суммы.

Прислушайтесь к Сергею(doober), он дело предлагает. Пока модеры не закрыли тему.