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