Сумма цифр трёхзначного числа - Pascal ABC
Формулировка задачи:
Дано трех значное число надо что бы программа выдала сначала ввести трехзначное число и после сложила каждую цифру
например даю числу 125 а он должен подсчитать 1+2+5 и вывести результат.
Я ковырял ковырял но не получилось, может кто поможет?
Решение задачи: «Сумма цифр трёхзначного числа»
textual
Листинг программы
var
x: integer;
i1,i2,i3: integer;
y: integer;
Begin write('');
readln(x);
i1 := x div 10;
i2 := x mod 10;
i3 := x div 10;
y := i1+i2+i3;
writeln(y);
end.
Объяснение кода листинга программы
- Объявлены четыре переменные: x, i1, i2, i3 типа integer и y типа real.
- Выводится приглашение для ввода значения переменной x.
- С помощью функции readln() происходит ввод значения переменной x.
- Присваивается значение переменной i1, равное частному от деления x на 10.
- Присваивается значение переменной i2, равное остатку от деления x на 10.
- Присваивается значение переменной i3, равное частному от деления x на 10.
- Присваивается значение переменной y, равное сумме значений переменных i1, i2 и i3.
- Выводится значение переменной y.
- Конец работы программы.