Cod sursa(job #138036)
| Utilizator |  Alexandru 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 |
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.