Var i,j,k:integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if i*i*i+j*j*j+k*k*k=i*100+j*10+k
then writeln(i*100+j*10+k);
end.
Результат:
153
370
371
407
===== PascalABC.NET =====
begin
var a := new real[ ] (1.2, 2, 3, 4 ,5); // сколько нужно
a.Average.Print
end.
Если массив не создавать, можно короче:
begin
Seq(1.2, 2.0, 3.0, 4.0, 5.0).Average.Print
end.
sqr(x)-квадрат числа x
sqrt(x)-квадратный корень из числа x
c=25=5^2=a^2. => c=sqr(a).
Ответ: D
Қажаттын өлшемін қалай орнатады
У Пети сочинение "весит" 96·1=96 байт
каждый символ - 2 байта
откуда у пети в сочинении 48 символов
у васи в 3 раза больше - 144 символа
и "весит" васино сочинение 18·8=144 байта
откуда 1 символ кодируется 1 байтом, то есть восемью битами
ответ - 8