1. Информатика
  2. гнчэ-1 – сложное электронное

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

marien2 marien2    2   18.05.2019 13:10    7

Ответы
helenawoy helenawoy  11.06.2020 19:26

Имхо так:

 

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
123love321 123love321  18.10.2021 06:30
Скласти програму обчислення значення функції y(x). PascalABC...
diana2007ru diana2007ru  18.10.2021 06:21
Отрицательные стороны компьютера, влияющие на организм человека Анкета, состоящая из 10 вопросов...
Ромчик0412 Ромчик0412  09.04.2020 11:18
Дана программа на языке Паскаль.Программа определения весовой категории в зависимости от веса спортсмена. Если вес спортсмена меньше 62, то «лёгкая категория» иначе «средняя...
Qmpzaslk Qmpzaslk  29.07.2019 13:10
По данному фрагменту кода выясните какое значение переменной x было подано на входе если известно что в результате выполнения данного кода на выходе значение переменной...
linashilova00 linashilova00  29.07.2019 13:10
Некоторый алфавит включает в себя 128 символов сообщение содержит 10 символов этого алфавита определите информационный оъбем сообщения в битах...
2047liza 2047liza  17.03.2019 20:00
1)запишите два известных вам факта, относящихся к свойствам объектов. 2) запишите два известных вам факта, относящихся к зависимостям между объектами. )...
kristinka140320 kristinka140320  17.03.2019 20:00
1)сколько различных последовательностей длиной в 7 символов можно составить из цифр 0 и 1? 2)объем сообщения 7,5 кб. известно, что данное сообщение содержит 7680 символов....
Batman781 Batman781  17.03.2019 19:18
Скорость передачи данных ревна 1024000 бит/с. передача файла через данное соединение заняла 5 секунд. определите размер файла в кб?...
Baldex Baldex  17.03.2019 19:50
Незнайка поехал на машине из цветочного города в солнечногорске. какова скорость машины если известно что расстояние в км между равна количеству минут потраченных на поездку...
sharudakatya25oxzgq7 sharudakatya25oxzgq7  26.11.2021 23:10
Ребят, Есть такие люди которые розбираються в прагромированию? Но не просто инпут и принт, а там заменяеться на file=open( b txt ) И вррде так: b.file.readline() Завтра...

Популярные вопросы