1)С клавиатуры вводится целое положительное число N. Необходимо вычислить сумму натуральных четных чисел, не превышающих N. Составьте программу на языке Pascal, используя цикл с предусловием.
2)С клавиатуры вводится целое положительное число N. Необходимо вычислить сумму натуральных четных чисел, не превышающих N. Составьте программу на языке Pascal, используя цикл с постусловием.
3)В результате выполнения программы должны быть выведены значения функции y=x3+2x для значений x, лежащих в диапазоне [1; 3], с шагом 0,2. Составьте программу на языке Pascal, используя любой из изученных циклов (цикл с предусловием или цикл с постусловием).

1.
a:=10;
b:=20;
c:=30;
2.
При write(a) - выведется на экран просто значение а;
При write('a') - выведется просто буква "а";
При write('a=', a) - выведется на экран, например: a=10
3. Чтобы вывести на экран число с фиксированной запятой нужно написать write(a:0:3). a - должна быть вещественного типа. 3 - означает три знака после запятой, поэтому если у вас число 1.2758234, то будет выведено на экран 1.275

4. 
a = 1;
b = 11;

5.

program pl;
var 
a, b : integer;
s, p : real;
begin
writeln("Введите первую сторону прямоугольника:");
readln(a);
writeln("Введите вторую сторону прямоугольника:");
readln(b);
p = 2*(a+b);
s = a*b;
writeln("Площадь прямоугольника равна:", s);
writeln("Периметр прямоугольника равен:", p);
end.

/*Дан массив X(N,M) .Найти среднее арифметическое тех строк массива, первый элемент которых положительный*/#include <iostream>#include <time.h>#define M 5#define N 5using namespace std;
void printArray(int *mas, int n,int m)//инициализация и вывод массива { srand(time(0)); for (int i = 0; i < n; i++) { for (int j = 0; j < m; j++) { *mas = rand() % 21-10; cout << *mas << "\t"; mas++; } cout << endl; }}

void srArray(int mas[][M], int n)//нахождение и подсчет тех строк, где первый элемент положительный{ int a; double sum = 0; for (int i = 0; i < n; i++) { double sr = 1; if (mas[i][0] > 0) { for (int j = 0; j < M; j++) { sum += mas[i][j]; } sr = sum / M; cout << "Ср элеменитов " << i + 1 <<  "-й строки = " << sr << endl; } else ; }
}

void main()//основная функция{ setlocale(LC_ALL, "rus"); int x[N][M]; printArray(&x[0][0], N, M); cout << endl; cout << ""<<endl; srArray(x, N); system("pause");}