Вычислите квадрат наименьшего из 4 чисел.
Паскаль и массивы.
.

// PascalABC.NET

begin

 ReadSeqInteger(4).Min.Sqr().Print();

end.

Відповідь:

#include <iostream>

using namespace std;

void cinarr(int *arr,int N){

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

 cout << "A[" << i + 1 << "] : ";

 cin >> arr[i];

}

}

void printnumber(int *arr,int N){

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

 cout << arr[i];

}

}

bool check(int *arr,int N){

int number = arr[N - 2] * 10 + arr[N - 1];

if(number % 4 == 0){

 return true;

}  

return false;

}

int main(){

setlocale(LC_ALL , "Rus");

int N;

cout << "Введите кол-во цифр числа(не больше 30): ";

cin >> N;

if(N < 0 || N > 30){

 cout << "Неправильно введены входные данные..." << endl;

 return 1;

}

int arr[N];

cinarr(arr,N);

cout << "Число: ";

printnumber(arr,N);

cout << endl;

if(check(arr,N) == true){

 cout << "Число делиться на 4 " << endl;

}

else{

 cout << "Число не делится на 4 " << endl;

}

return 0;

}

Пояснення: