Найти сумму всех 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.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 3.9 из 5
Похожие ответы