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

redkiller22 redkiller22    1   18.09.2019 15:40    0

Ответы
Sk174 Sk174  08.10.2020 00:20
// 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
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика