Question

Задание нa языке Pascal​

Answer 1

1. Условная конструкция if условие then тогда else иначе

Записываем формулу, не забывая о скобках. Квадратный корень - sqrt, модуль - abs.

Код (Pascal):

var x, y: real;

begin

 read(x);

 if x >= 0 then

   y := sqrt(3 * x * x - 1) + 3

 else

   y := (7 * x + 3) / abs(x - 1);

 write(y)

end.

Пример ввода:

2

Пример вывода:

6.3166247903553998

2. Трехзначное число является палиндромом, если первая и последняя цифра одинаковые. Первую цифру можно найти как целую часть от деления на 100, последнюю - как остаток от деления на 10.

Код (Pascal):

var n: integer;

begin

 read(n);

 if n div 100 = n mod 10 then

   write('YES')

 else

   write('NO')

end.

Пример ввода:

707

Пример вывода:

YES