Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного...

0 голосов
54 просмотров

Составьте алгоритм вычисления суммы всех натуральных чисел, не превышающих заданного натурального числа n. С постусловием (for ещ4 не изучали).


Информатика (12 баллов) | 54 просмотров
Дан 1 ответ
0 голосов

Const n=20;
var sum:integer;
       i:byte;

begin
sum:=0;
i:=1;
repeat
   sum := sum + i;
   i := i+1;

until (i=n);
end.

(10.8k баллов)