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