Образец решения задач

Задача: Вычислить сумму целых чисел от M до N путем прямого суммирования. M и N – целые числа, т.е.

Решение:

1. Составление алгоритма:

2. Составление программы:

Program task_1;

Var i, m, n, Summa: Integer;

Begin

Write (‘M=’);

Readln (m);

Write (‘N=’);

Readln (n);

Summa:= 0;

I:= m;

While i<n do

Begin

Summs:= Summa + I;

I:= Succ (i);

End;

Writeln(‘Сумма равна’, Summa);

End.

Информационное обеспечение обучения