Информатика "Построение таблиц истинности для логических выражений"

program one;

type TIntMassiv = array of real;

var a,b,c,x,y: TIntMassiv; n,i:integer;

begin

writeln('Введите длину массивов(n)');

readln(n);

setLength(a,n); // Создаем динамические массивы длины n

setLength(b,n);

setLength(c,n);

setLength(x,n);

setLength(y,n);

for i := 0  to n-1 do  

 begin

  writeln('Введите ',i+1, ' массива a');

  readln(a[i]);  

  writeln('Введите ',i+1, ' массива b');

  readln(b[i]);  

  writeln('Введите ',i+1, ' массива c');

  readln(c[i]);

 end;

for i := 0 to n-1 do

 begin

  x[i] :=  MIN(a[i],b[i]) / 2;

  y[i] :=  MIN(a[i],c[i]) / 2;

 end;

for i := 0 to n-1 do

 begin

  writeln('x[',i,']=',x[i]);

  writeln('y[',i,']=',y[i]);

 end;

a := nil; //Освобождаем память

c := nil;

b := nil;

x := nil;

y := nil;

end.

ЗАДАНИЕ 1:

#include <iostream>

using namespace std;

void main()

{

   int number = 0;

   cout << "Введите число ->";

   cin >> number;

   if (number % 2 == 0)

   {

       number *= 3;

   }

   else

   {

       number /= 2;

   }

   cout << number << endl;

}

ЗАДАНИЕ 2:

#include <iostream>

#include <cctype>

using namespace std;

void main()

{

   char symbol = 0;

   cout << "Введите символ ->";

   cin >> symbol;

   if (isalpha(symbol))

   {

       cout << "Вы ввели букву" << endl;

   }

   else if (isdigit(symbol))

   {

       cout << "Вы ввели цифру" << endl;

   }

   else if (ispunct(symbol))

   {

       cout << "Вы ввели знак препинания" << endl;

   }

   else

   {

       cout << "Вы ввели не букву, не цифру и не знак препинания" << endl;

   }

}