2. вычислить сумму s всех цифр заданного натурального числа n
Пусть s – искомая сумма,
i – очередная цифра числа.
Тогда алгоритм решения задачи можно описать следующим образом:
a. обнуляем сумму s ,
b. берем последнюю цифру числа, для чего определяем остаток от деления исходного числа на 10: i = n Mod 10,
c. добавляем в сумму найденную цифру: s = s + i,
d. уменьшаем число в 10 раз: n = n Div 10,
e. повторяем цикл до тех пор, пока n = 0 – это и будет условием выхода из цикла.
Схема алгоритма: Программа:
Program Sum;
Var i, s, n : Word;
Write(‘n= ‘);
s := s + i;
Until (n = 0);
WriteLn(‘s = ‘, s);
3. ввести с клавиатуры по одному последовательность целых чисел (конец последовательности – число 0). Определить их сумму, максимальное и минимальное число, количество введенных чисел и их среднее арифметическое.
Пусть s – искомая сумма,
min, max – минимальное и максимальное из введенных чисел,
count – количество введенных чисел,
sred – среднее арифметическое,
n – очередное число.
Тогда алгоритм решения задачи можно описать следующим образом:
a. обнуляем сумму s ,
b. вводим первое число n,
c. если оно не равно нулю, то
1. принимаем его значение за min и max
2. количество введенных чисел count = 1
3. увеличиваем сумму на введенное число s = s + n
4. входим в цикл ввода:
d. вводим очередное число n,
e. если оно не равно нулю, то
1. количество введенных чисел увеличиваем на 1: count = count +1
2. увеличиваем сумму на введенное число s = s + n
3. если оно меньше min, то min = n,
4. если оно больше max, то max = n,
f. повторяем цикл до тех пор, пока n = 0 – это и будет условием выхода из цикла.
g. Создадим интерфейс этой задачи – взаимодействие программы с пользователем, то есть что должно выводиться на экран: