Условные операторы if условие then оператор (else оператор)

Слайд 2

Найти значение функции x, если x>0 -x, если x program funkciya;

Найти значение функции x, если x>0 -x, если x<0

program funkciya;
uses crt;
var x,y: real;
begin

write (‘введите x’);
readln(x);
if x>0 then y:= x else y:=-x;
writeln(‘значение функции y=‘,y);
end.
Слайд 3

Составить программу на TPascal

Составить программу на TPascal