Составьте программу , выводящую на экран все - вопрос №79859461010 от 009988771 10.05.2023 02:18

Question

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

009988771 · 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