извини, но из языков программирования которые пишут на русском знаю только 1С и это как по мне издевательство
пишу на старом добром паскале
var a,b,min,max:real;
read(a,b);
if (a <b) then begin
min:=a;
max:=b;
a:= (min+max)/2;
b:=min*max;
end
else begin
min:=b;
max:=a;
b:= (min+max)/2;
a:=min*max;
end;
writeln(a,b);
End.
с желтого на синий, с желтого на красный, с синего на красный, с желтого на синий, с красного на желтый, с красного на синий, с желтого на синий.
тоесть: верхний корж перекладываем с желтого на синий поднос, средний корж перекладываем с желтого на красный, верхний с синего на красный, нижний с желтого на синий, верхний с красного на желтый, средний с красного на синий, верхний с желтого на синий.
Мне кажется что люди без 3D не могут жить ,потому что, это самое интересное 3D для людей. И если бы не было 3D, то дома, здания, офисы и т.д не были бы объёмными, красивыми. 3D помогает людям рассмотреть все здание длину, ширину, высату и т.д. И я думаю что все самое интересное в 3D мире.
Квадрат 1 это единица. Квадратный корень из 100 - это 10. Следовательно, на заданном отрезке находятся квадраты всех целых чисел от 1 до 10. Их и нужно вычислить.
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
Range(1,10).Select(x->x*x).Println
end.
<u><em>Результат выполнения программы:</em></u>
1 4 9 16 25 36 49 64 81 100