Question

"гнчэ-1" – сложное электронное устройство, каждую секунду очередное число последовательности 1, 2, 2, 3, 3, 3, 4, 4, 4, 4, ввиду дороговизны электронных комплектующих вам поручено разработать эмулятор для этого устройства. формат входного файла дано количество секунд (от 1 до 1000000), которые работает генератор после включения. формат выходного файла результат работы генератора

Answer 1

Имхо так:

Program solution;
Uses Crt;
Var sec, num, n1, i : Longint;

Begin
ClrScr;
Readln(sec);
num := 1;
n1 := 0;

repeat
        for i := 1 to num do
                begin
                write(num, ' ');
                n1 := n1 + 1;
                if n1 >= sec then break;
                end;
        num := num + 1;
until n1 >= sec;
End.