Cod sursa(job #1205850)

Utilizator Ysaika2Neacsu stefan Ysaika2 Data 8 iulie 2014 12:04:25
Problema Cifra Scor 0
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.4 kb
var   f,g:text;
n,i: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,i: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.