Регистрация
tanamakagonova
03.12.2020 20:27
Информатика
Есть ответ 👍

Какая информация хранится в midi файлах?

267
353
Посмотреть ответы 1

Ответы на вопрос:

ДаРуСя10
ДаРуСя10
4,6(9 оценок)
Program dz; var n,i,k,j,f: longint;   a: array [1..10000] of longint; begin   k: =0;   read (n);   a[1]: =1;   a[2]: =1;   for i: =3 to 10000 do     begin       if not(a[i-1] < n) then       begin         break       end;       a[i]: =a[i-1]+a[i-2];       k: =k+1     end;   for i: =  1 to k do     begin       f: =0;       for j: =2 to a[i]-1 do         if a[i] mod j=0 then f: =1;         if f=0 then write (a[i],' ');     end; end. это для pascal

Популярно: Информатика