Головна |
Завдання: Обчислити суму цілих чисел від 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 Begin Summs: = Summa + I; I: = Succ (i); End; Writeln ('Сума дорівнює', Summa); End. Інформаційне забезпечення навчання оператор переходу | Приклад циклу типу repeat ... until | Стандартні і призначені для користувача процедури. | Приклад. | Стандартні і пользоваельскіе функції | Приклади стандартних функцій | Параметри-змінні | Readln (kol); | непряма рекурсія | КОНТРОЛЬНА РОБОТА |