Билет №2(1,2)

1. Реализовать функцию или процедуру, которая определяет, является ли число Х простым. Организовать вывод всех простых чисел не больше N

#include<iostream>

#include<math.h>

using namespace std;

bool prost(int a) {

       for (int i = 2; i < a; i++) {

             if ((a%i)==0) {

                    return false;

                    break;

             }

       }

       return true;

}

int main() {

       int n, j=2;

       cin >> n;

       while (j <= n) {

             if (prost(j)) {

                    cout << j << endl;

             }

             j++;

       }

       system("pause");

}

2. Сформировать вектор , каждый элемент которого представляет собой среднее арифметическое значение строк матрицы , и вектор , каждый элемент которого равен произведению элементов столбцов матрицы .

program myprog

      real, allocatable :: A(:,:)

      real, dimension(:), allocatable :: d,g

      read(*,*) i

      allocate (A(i,i),d(i), g(i))

      do j=1,i

      d(j)=sum(A(j,:))/i

      g(j)=product(A(:,j)

      end do

      write(*,100) (d(k),k=1,i)

      write(*,*)

      write(*,100) (g(k),k=1,i)

      100 format (f6.2,\)

      end