Question

ДАЮ 15 БАЛЛОВ ЗА ПРАВИЛЬНОЕ РЕШЕНИЕ
1. напишите программу для решения следующей задачи:
Дано целое число . Является ли оно четным ?
2. составьте программу вычисления y по заданному x

Answer 1

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. нужную формулу напишешь сам