Question

написать программу на языке pascal то что изображено на картинке

Answer 1

var
x, y:real;
begin
read(x);
if x = 0 then
y := exp(x) + 0.7 
else
y := 4.2 - x * 2;
writeln(y);
end.

Answer 2

ща исправлю

Answer 3

6 строчка ошибку выдает

Answer 4

исправила.

Answer 5

теперь работает?

Answer 6

да