Написать программу на языке паскаль для вычисления затрат на ремонт !

#include <iostream>

#include <math.h>

#include <locale.h>

using namespace std;

void main()

{

setlocale(LC_ALL, "Russian");

int a=0, b=0;

bool pr;

while (a < 100)

{

 pr = false;

cout << "Введите координаты - x, y: ";

cin >> a >> b;

system("cls");

 for (int x = 1; x <= 3; x++)

 {

  for (int y = 6; y <= 8; y++)

  {

   if (a == x && b == y)

   {

    pr = true;

   }

  }

 }

 for (int x = 3; x <= 5; x++)

 {

  for (int y = 2; y <= 6; y++)

  {

   if (a == x && b == y)

   {

    pr = true;

   }

  }

 }

 for (int x = 5; x <= 7; x++)

 {

  for (int y = 6; y <= 8; y++)

  {

   if (a == x && b == y)

   {

    pr = true;

   }

  }

 }

 cout << pr << endl;

}

}

Відповідь:

#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;

}

Пояснення: