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

Задача: Вычислить сумму целых чисел от 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.

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