1. Потому что нет денег на покупку.
2. Потому что негде купить, или это слишком сложно
3. Потому что жалко денег.
4. Даже не подозревают, что нарушают какие-то там права.
Var a0, a1, a2, a3, a: longint;
Begin
readln(a3, a2, a1, a0);
a:=a3*1000+a2*100+a1*10+a0;
write(a)
End.
Пример:
1 5 9 8
1598
Формула не может содержать данные текстового типа
Ответ: 2
<em>// PascalABC.NET 3.2, сборка 1341 от 20.11.2016</em>
begin
var a:=ArrRandom(7,-20,20); a.Println;
a:=a.Select(x->abs(x)).ToArray; a.Println
end.
Пример
-9 17 6 1 20 9 -14
9 17 6 1 20 9 14