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

1
а я пока переделаю фрагмент
точнее лучше всю прогу тебе скину
и ты потом проверишь и если всё правильно отправишь на сайт
те строчки которые большими буквами это привязка к этому текстовому документу
это вся программа от А до Я

Ответы и объяснения

2014-01-28T21:33:20+04:00
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.