1. САМ РЕШАЙ.
2 Я ХЗ ЧО ЭТо
var i: integer;
begin
for i := 1000 to 9999 do
if (i div 1000) * (i div 100 mod 10) * (i div 10 mod 10) * (i mod 10) = 40
then writeln(i)
<span>end.</span>
Ответ:
Их много
Объяснение:
Java, Javascript, Python, Ruby, PHP, C#, C++,php и тд
Оживлёная улица.Мальчик идёт со школы с рюкзаком.На светофоре горит зелёный свет.Машины остоновились и мальчик начинает переходить дорогу.
//PascalABC.NET
//Версия 3.3, сборка 1627
begin
var x:=ReadReal;
if x<=0 then write(0) else if x>1 then write(x**4) else write(x);
end.