Получите растровые коды и векторы описания для изображения букв "Н" "И" "Е".

1:

program prog;

var i,n,s,a:integer;

var chk:boolean;

begin

   chk:=False;

   s:=1;

   write('Введите количество вводимых чисел: '); readln(n);

   for i:=1 to n do

   begin

       write('Введите ', i, '-е число: '); readln(a);

       if i mod 2 = 0 then

       begin

           s:=s*a;

           chk:=True;

       end;

   end;

   if chk = False then s:=0;

   write('Произведение чётных членов введённой последовательности равно ', s);

end.

2:

program fib;

var

   F1,F2,n,i :Integer;

begin

   write('Введите количество чисел Фибоначчи: '); readln(n);

   F1:=1;

   F2:=1;

   For i:=1 to n do

   begin

       if i>2 then

       begin

           F1:=F1+F2;

           F2:=F1-F2;

       end;

       write(F1, ' ');

   end;

end.

1) Код программы;

#include <iostream>

#include <locale>  

using namespace std;  

int main()

{

setlocale(LC_ALL, "Russian");

int *mas, x;

cout << "Введите последний элемент массива(X): ";

cin >> x;

mas = new int[x];

for (int i = x-1; i >= 0; --i)

 mas[i] = i+1;

cout << "Массив:" << endl;

for (int i = 0; i < x; ++i)

 cout << mas[i] << ' ';

}

2) Код программы;

#include <iostream>

#include <locale>  

using namespace std;  

int main()

{

setlocale(LC_ALL, "Russian");

int *mas, n;

cout << "Введите N: ";

cin >> n;

mas = new int[n];

for (int i = 0; i < n; ++i)

 mas[i] = pow(2, i+1);

cout << "Массив:" << endl;

for (int i = 0; i < n; ++i)

 cout << mas[i] << ' ';

}