Нет, слабоват для World of Tanks
===== PascalABC.NET =====
begin
var x := 12.0;
while x <= 15.1 do
begin
var y := Sin(x) - x ** 2;
Writeln(x:4:1, y:16:9);
x += 0.2
end;
end.
Var n,n1,n2,n3,n4,sum:integer;
Begin
readln(n);
<span> n1:=n div 1000; </span>
<span> n2:=n div 100; </span>
<span> n2:=n2 mod 10; </span>
<span> n3:=n div 10; </span>
<span> n3:=n3 mod 10; </span>
<span> n4:=n mod 10; </span>
<span>n2:=n2*n2; </span>
<span>n3:=n3*n3; </span>
<span> sum:=sum+n2+n3; </span>
writeln('sum=',sum);
end.