1.
var
a : integer;
begin
write('введите число: ');
readln(a);
if a mod 2 = 0 then writeln('четное') else writeln('нечетное');
end.
2.
var
x, y : integer;
begin
write('введите x=');
readln(x);
y := x;
writeln('y=', y);
end.
во второй задаче не было указано как считать Y поэтому я просто сделал его равным X. нужную формулу напишешь сам
................................
#include <iostream>
int main()
{
int side, S, P;
std::cout « "Enter side: ";
std::cin » side;
P = side * 4;
S = side * side;
std::cout « "\nP = " « P « "\nS = " « S;
return 0;
}
Ну что знаю подскажу
3. 1 вариант
4. 1 вариант (т.е. 18)
6. Варианты 1;2;4
7. Вариант 2