suma function.txt

(0 KB) Pobierz 
program suma;
var a:integer;

function sum(a1:integer):integer;
var suma:integer;
begin
suma:=0;
repeat
suma:=suma+(a1 mod 10);
a1:= (a1 div 10);
until (a1 = 0);
sum:=suma;
end;

begin
readln(a);
writeln(sum(a));
readln;
end.

Plik z chomika:

Inne pliki z tego folderu:

Inne foldery tego chomika:

Zgłoś jeśli naruszono regulamin