Задача 1. Составить программу на языкеPascal , определяющую, кратно ли за данноенатуральное число k числу 8?Задача 2. Составить программу на языкеPascal , определяющую, какое целое числовведено: четное или нечетное , и больше лиэто число числа

Відповідь:

#include <iostream>

#include <cstdlib>

#include <time.h>

using namespace std;

void SetArray(int *A,int N){

for(int i = 0; i < N; i++){

 A[i] = rand() % 10 + 1;

}

}

void PrintArray(int *A,int N){

for(int i = 0;i < N; i++){

cout << A[i] << " ";

}

}

void expression(int *A,int N,int k,int l){

for(int i = k; k < l; k++ , l--){

 swap(A[k], A[l]);

}

}

int main(){

srand(time(NULL));

setlocale(LC_ALL , "Ukrainian");

int N,k,l;

cout << "Введiть розмiр масиву: ";

cin >> N;

int *A = new int[N];

SetArray(A,N);

PrintArray(A,N);

cout << "\nВведiть k: ";

cin >> k;

cout << "Введiть l: ";

cin >> l;

expression(A,N,k,l);

PrintArray(A,N);

delete[] A;            

return 0;

}

// меньшее из двух чисел (a,b) уменьшите на 4

Var x,y   : real;
begin
  writeln ('Введите первое число');
  readln (x);
  writeln ('Введите второе число');
  readln (y);
  while x=y do
    begin
      writeln ('Вы ввели равные числа. По условиям задачи числа не должны быть равны. Попробуйте еще раз');
      writeln ('Введите первое число');
      readln (x);
      writeln ('Введите второе число');
      readln (y);
    end;
  if x<y then x:=x-4
           else y:=y-4;
 writeln ('Первое число ',x,' Второе число ',y);       
end.