1 задание 1000кб 1500/75=20*50=1000
но я не математик :)
<span>С помощью естественного языка люди могут общаться понимая друг друга,а формальный свойствен только для общения с той или иной работой. </span>
Var A, I, O: Integer;
Begin
ReadLn(A);
For I:=100 to 999 do Begin
If I div 100 = A Then
O:=O+1;
if (I div 10)-(I div 100) = A then
O:=O+1;
If I - ((I div 10)*10) = A Then
O:=O+1;
End;
WriteLn(O);
End.
120*120*log8=120*120*3=43200bit=5400bite=5.2734375kb
Var A,L: real;
begin
readln(L);
A:=((exp(ln(L)*3)-8.5)/7.6)+10*sqr(L);
writeln(A);
end.