Az alábbi letöltési lehetőségek közül választhatsz: (
segítség)
Típus: text/plain
Tartalmaz szöveget
Karakterkódolás: us-ascii
Méret: 441 byte
program f222;
var sum:real; i:integer;
begin
sum:=49+50;
for i:=30 to 48 do begin
sum:=sum+sqrt(200)*sqrt(2*i+2-50);
end;
sum:=sum+sqrt(200)*sqrt(31+30-50);
sum:=sum*1000;
writeln(round(sum));
end.
