Задание 1:
Невозможно по фрагменту составить программу. Поэтому отвечаю фрагментом на фрагмент:
- a := 5;
- if not a = 1 then
- b := b + a;
Задание 2:
- var x, y: real;
- begin
- read(x);
- if x < 0 then y := (3 * sqr(x) + 4) / 6
- else y := sqrt(3 * x - 2);
- write(y);
- end.
Пример работы:
Можем проверить: вводим 2.
Так как 2>0 , то y = = = = 2.