Question

Разработайте алгоритм и программу определения суммы всех натуральных чисел от 10 до n. Pascal ​

Answer 1

1.Program zadacha1;

2. var

3. s,n : integer;

4.writeln('Введите N');

5. writeln('Введите N');

6.read(n);

7.s:=0;

8.while  (n<>0) do

9.begin

10.inc(s,n);

11.dec(n);

12.end;

13.writeln('Сумма = ',s);

14.end.