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

Question

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

Comments

но там своя среда програмирования

---

ну так вот, заходи в папку с паскалем там создай файл

---

типа пасаля

---

да

---

input.txt- и пиши туда своё число

---

а я пока переделаю фрагмент

---

точнее лучше всю прогу тебе скину

---

и ты потом проверишь и если всё правильно отправишь на сайт

---

те строчки которые большими буквами это привязка к этому текстовому документу

---

это вся программа от А до Я

Answer 1

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.