parent
461749e44a
commit
6a30c4db8b
@ -0,0 +1,22 @@ |
||||
let |
||||
var a : Integer; |
||||
var b : Integer; |
||||
var c : Integer |
||||
in |
||||
begin |
||||
put('1'); |
||||
puteol(); |
||||
a := 0; |
||||
while a < 5000 do |
||||
begin |
||||
b := 0; |
||||
while b < 3000 do |
||||
begin |
||||
c := c + a; |
||||
c := c / (1 + b); |
||||
b := b + 1; |
||||
end; |
||||
a := a + 1; |
||||
end; |
||||
putint(c); |
||||
end |
Reference in new issue