Question

ПОЖАЛУЙСТА ПОМОГИТЕ.Напишите, какую задачу решает данная программа?
Program zadacha;
var a, sot, des, ed: integer;
begin
write ('введите число');
readln (a);
sot:=a div 100;
des:=(a div 10) mod 10;
ed:=a mod 10;
sum:= sot+des+ed
writeln (sum);
end

Answer 1

Ответ: программа складывает цифры из 3-ёх значного числа

Объяснение: если ввести 147, то программа сделает 1+4+7 и выдаст ответ 12