1. Найти значение Y, которое равно квадрату заданного числа Х, если Х>2, и равно 4 в остальных случаях. 2. Найти значение Y при заданном X : 3X+9, если X<7 (X) + 1, если X>7

1. program zz1;

var x, y:integer; / / вводим переменную целого типа

begin

write (' введите x '); / / вводим с клавиатуры число

read (x);

if x > 2 / / проверяем условие

then y:=x * x;

else y:=4;

write (' y = ', y); / / выводим ответ

end.

2. program zz1;

var x:integer; / / вводим переменную целого типа

y:real; / / вводим переменную не целого типа

begin

write (' введите x '); / / вводим с клавиатуры число

read (x);

if x < 7 / / проверяем условие

then y:=3 * x + 9;

if x > 7 / / проверяем условие

then y:=sin (x) + 1;

write (' y = ', y); / / выводим ответ

end.