Cod sursa(job #1631966)
| Utilizator |  Negrescu Cristian Cryfun |
Data | 5 martie 2016 20:27:47 |
|---|---|---|---|
| Problema | Cifra | Scor | 0 |
| Compilator | fpc | Status | done |
| Runda | Arhiva de probleme | Marime | 0.3 kb |
Program adunare;
var i,y,t,x:integer; n:longint; f,f1:text;
begin
assign(f,'cifra.in'); reset(f);
assign(f1,'cifra.out'); rewrite(f1);
readln(f,t)
for i:=1 to t do begin
readln(f,x);
For x:=x downto 1 do
For y:=x downto 1 do
N:=n+x*y; n:=n mod 10; writeln(f1,n);n:=0; end;
close(f); close(f1); end.