1) Второе название термина "компьютерная графика?"(машинная)-8букв 2) Какой мультфильм в 1964 году, выполняя написанную программу решения дифференциальных уравнений, рисовала БЭСМ-4?(кошечка)-7букв 3) Обычно компьютерную графику разделяют на векторную и растровую. Хотя обособляют ещё один ...тип представления изображений. Что это за тип? (фрактальный)-11букв 4) Название объекта, отдельные элементы которого наследуют свойства родительских структур. (фрактал)-7букв 5) Что управляет всеми визуальными преобразованиями в 3D-графике?(матрица)-7букв 6)Монитор-это матрица. Он состоит из строк и...?(столбцы)-7букв 7) Сколько видов матриц используется в компьютерной графике? (три)-3буквы 8) Объединение высококачественного изображения на экране компьютера со звуковым сопровождением-это? (мультимедиа)-11букв 9) Визуализация графики бывает растровая и..?(векторная)-9букв визуализации это?(растр)-5букв
Program z; var a:array [1..15] of integer; i,k,s,j,n:integer; begin
writeln('Начальная последовательность'); for i:=1 to 15 do begin a[i]:=random(1,100); write(a[i], ' '); end; for j:=1 to 14 do for i:=1 to 14 do if a[i]>a[i+1] then begin k:=a[i]; a[i]:=a[i+1]; a[i+1]:=k end; writeln; writeln('Отсортированная последовательность'); for i:=1 to 15 do write(a[i], ' '); writeln; write('Введите N (а[1]<N<a[15]) '); read(n); for i:=1 to 15 do begin if (a[i]=n) or (a[1]>n) or (a[15]<n) then begin while (a[i]=n) or (a[1]>n) or (a[15]<n) do begin writeln('Ошибака! Число N не длжно совпадать с элементами последвовательности и а[1]<N<a[15]'); write('Введите N (а[1]<N<a[15]) '); read(n); end; end; if a[i]<n then s:=a[i]+s; end; write('Cумму последовательности меньших N = ',s); end.
Trunc(24.9) = 24 - функция выделяет целую часть
В результате получим 24.6