Cod sursa(job #138036)

Utilizator ioalexno1Alexandru Bunget ioalexno1 Data 17 februarie 2008 19:59:43
Problema Koba Scor 20
Compilator fpc Status done
Runda Arhiva de probleme Marime 0.35 kb
Raporteaza aceasta sursa 
program alex;
var f:text;
    t1,t2,t3,s,j,z,n:longint;
begin
assign(f,'koba.in');reset(f);
readln(f,n,t1,t2,t3);
close(f);
s:=s+(t1 mod 10)+(t2 mod 10)+(t3 mod 10);
j:=3;
repeat
j:=j+1;
z:=((t3 mod 10)+(t1 mod 10)*(t2 mod 10))mod 10;
s:=s+z;
t1:=t2;
t2:=t3;
t3:=z;
until j=n;
assign(f,'koba.out');rewrite(f);
writeln(f,s);
close(f);
end.