Дано натуральное число N(0<=N<=109). Написать программу нахождения суммы и произведения цифр этого числа. Примечание - решение есть в учебнике на стр.113 - только там написано на Паскале, вам же нужно написать на Пайтон. для выделения последней цифры используем %, т.е к=n%10, а чтобы "убрать " выделенную цифру n=n//10. используем цикл с постусловием
Module Module1
Sub Main()
Dim n, i, s As Integer
Console.Write("Введите число N")
n = Console.ReadLine
s = 0
For i = 1 To n
s = s + i * i
Next
Console.Write(s)
n = Val(Console.ReadLine)
End Sub
End Module
2. Приложение Windows Forms:
На форме 3 объекта:
TextBox1 - для ввода N
Textbox2 - для вывода суммы квадратов
Button1 - чтобы запустить процесс вычислений
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, s As Integer
s = 0
For i = 1 To Val(TextBox1.Text)
s = s + i * i
Next
TextBox2.Text = s
End Sub
End Class