You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
23 lines
284 B
23 lines
284 B
2 years ago
|
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
|