Cod sursa(job #1205847)
Utilizator | Data | 8 iulie 2014 12:03:32 | |
---|---|---|---|
Problema | Cifra | Scor | 0 |
Compilator | fpc | Status | done |
Runda | Arhiva de probleme | Marime | 0.4 kb |
var f,g:text;
n:integer;
p:longint;
function ult(x:longint):byte;
var j:byte;
begin
j:= x mod 10;
ult:=j;
end;
procedure suma(x:byte);
var s:byte;
begin
for i:=1 to p do
s:=s+i;
ult(s);
write(g,s);
end;
begin
assign(f,'cmmdc.in'); reset(f);
assign(g,'cmmdc.out'); rewrite(g);
read(f,n);
i:=0;
repeat
i:=i+1;
read(p);
suma(ult(p));
until i=n;
close(f);
close(g);
end.