Занятие 6. Сумма цифр числа расчетным методом.

Сегодня на занятии мы научились рассчитывать сумму цифр трёхзначного числа расчетным методом:

Программа №1. Расчет суммы цифр трёхзначного числа

VAR

     Num, sum, z1, z2, z3: integer;

BEGIN

    writeln('Введите число трёхзначное чило:');

    readln(Num);

    sum:=0;

    z3:= Num div 100;                   // Вычислили сотни

    z2:= (Num-z3*100) div 10;           // Вычислили десятки

    z1:= (Num-z3*100) - z2*10;          // Вычислили единицы

    sum:=z3+z2+z1;

    writeln('Сумма цифр числа=', z1+z2+z3);

END.