Составить программу , использующую цикл с постусловием. вычислить квадратные корни чисел 2 , 4 , 6 , . напишите решение в столбик .

program dl9_aleksandr4;

var k: real; a: integer;

begin

a: =2;  

repeat

k: =sqrt(a);

writeln ('sqrt(a)=',k);

a: =a+2;

until a< =50;

readln

end. 

 

 

var i: integer;       a: integer; begin  a: =2;   repeat    write(sqrt(a): 0: 2,', ');     a: =a+2;     until a=52; end.

     

     

   

1) второе название термина "компьютерная графика? "(машинная)-8букв 2) какой мультфильм в 1964 году,  выполняя написанную программу решения дифференциальных уравнений,  рисовала бэсм-4? (кошечка)-7букв 3)    обычно компьютерную графику разделяют на векторную и растровую. хотя обособляют ещё один представления изображений. что это за тип? (фрактальный)-11букв 4) название объекта, отдельные элементы которого наследуют свойства родительских структур. (фрактал)-7букв5) что всеми визуальными преобразованиями в 3d-графике? (матрица)-7букв 6)монитор-это матрица. он состоит из строк )-7букв 7) сколько видов матриц используется в компьютерной графике? (три)-3буквы 8) объединение высококачественного изображения на экране компьютера со звуковым сопровождением-это? (мультимедиа)-11букв9) визуализация графики бывает растровая )-9букв 10) способ визуализации это? (растр)-5букв

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