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

имхо так:

 

program solution; uses crt; var sec, num, n1, i : longint; beginclrscr; 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.

Pascal: var     s, x: real;     i, n: integer; begin readln(x, n); s : = 1; for i : = 1 to n do     s : = s + power(x, i) / i; writeln(s); end. c: #include < stdio.h> #include < math.h> #include < conio.h> int main()  {     float s = 1,             x = 0,             n = 0;     scanf("%f %f", & x, & n);         for (int i = 1; i < = n; i++)       s = s + pow(x, i) / i;         printf("%f", s);     getch();     return 0; }

1. что будет выведено в результате выполнения: а: = 'электростанция'; writeln (copy (а, 2, 3) + copy (a, 12, 3) ); ? лекция 2. определите результат выполнения: с: = ' лефортово' ; f: = length (с) + length (с); ? две длины слова, т.е. 9+9=18 3. из слова информатика получено слово формат. вставьте пропущенные значения copy('информатика',3,6).надо взять, начиная с третьего символа, шесть символов. 4. что будет выведено в результате выполнения: writeln ('24 + 24 =', 24 + 24)? 24 + 24 =48 5. что будет выведено в результате выполнения: а: = 'электростанция'; writeln(copy(a,1,7)); ? электро