Question

Решите задачу в паскале авс, пожалуйста, срочнооооо!!!!!
Найти сумму цифр трёхзначного числа введённого с клавиатуры

Answer 1

Program n1;
var a: integer;
begin
readln(a);
write((a mod 10)+(a div 100)+(a mod 100 div 10));
end.

Answer 2

var  N: word; { Трехзначное число }  t1, t2, t3: byte; { Цифры трехзначного числа }
begin   write('Введите трехзначное число: ');  readln(N); { <-- вводим трехзначное число }  writeln;  t3 := N mod 10; { <== третья цифра }  N := N div 10;  { <== число созданное первыми двумя цифрами }  t2 := N mod 10; { <== вторая цифра }  t1 := N div 10; { <== первая цифра }  writeln('Сумма цифр: ', t1 + t2 + t3); readlnend.