Question

Составьте программу на языке Паскаль: Найти сумму цифр трёхзначного числа.

Answer 1

var a,a1,a2,a3,s;
begin
s:=0;
readln (n);
a1:=a div 100;
a2:= a div 10 mod 10;
a3:=a mod 10;
s:=a1+a2+a3;
write (s);
end.

Answer 2

ну там считывать а