Найти сумму всех n-значных чисел - VB
Формулировка задачи:
Найти сумму всех n-значных чисел( 1 < = n < = 4 )
1)цикл с постусловием
2)цикл по параметру
Решение задачи: «Найти сумму всех n-значных чисел»
textual
Листинг программы
while a<=N do begin Summa:=Summa+a; a := a + 1 end; Writeln ( 'Результат первого суммирования:', Summa); {Цикл с постусловием} а:=1; Summa:=0; repeat Summa:=Summa+ a; а:=а+1 until a>N; Writeln (' Результат второго суммирования:', Summa); {Цикл с параметром} Summa:=0; for а : = 1 to N do Summa: =Summa+a; Writeln (' Результат третьего суммирования:', Summa) end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д