Времени мало вывести на экран вертикально диапазон - вопрос №870698611010 от SofiAll 31.10.2020 22:21

Question

Информатика: Времени мало вывести на экран вертикально диапазон чисел от 1 до 10 -10 раз. /паскаль/ это решение не правильно: var i: integer; begin for i: =1 to 10 do writeln( 12345678910 ) end.

SofiAll · Answer

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

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

begin
SeqGen(10,i->10*((i+1).ToString+' ')).Printlines
end.

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

Времени мало вывести на экран вертикально диапазон чисел от 1 до 10 -10 раз. /паскаль/ это решение не правильно: var i: integer; begin for i: =1 to 10 do writeln('12345678910') end.