Составьте программу , выводящую на экран все чиста - вопрос №79868481010 от Kseniyagapchuk 19.04.2020 07:41

Question

Информатика: Составьте программу , выводящую на экран все чиста от -10до10, а также их модули

Kseniyagapchuk · Answer

// PascalABC.NET 3.3, сборка 1542 от 05.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
Range(-10,10).Foreach(i->Println(i,Abs(i)))
end.

Результат
-10 10
-9 9
-8 8
-7 7
-6 6
-5 5
-4 4
-3 3
-2 2
-1 1
0 0
1 1
2 2
3 3
4 4
5 5
6 6
7 7
8 8
9 9
10 10