Вычислить сумму цифр заданного целого трехзначного числа.
в паскале

Program a1;
uses crt;
var a,ed,sot,des:integer;
begin
ASSIGN (input,input.txt) reset (input);
ASSIGN (output,output.txt); rewrite (output);
writeln ( vvedite chislo);
readln (a);
ed:=a mod 10;
sot:=a div 100;
des:=a div 10 mod 10;
sum:=des+sot+ed;
writeln (sum);
readln;
CLOSE (input); close (output);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.