Var
x,y:integer;
begin
writeln('Введите X: ');readln(x);
if x <= 0 then
y:=0
else
begin
if (x < 0) or (x <= 1) then
y:=x
else
y:=x*x
end;
writeln(y);
end
8. Запишите следующие высказывания в форме логических выражений:
а) фамилия >< Семенов;
б) занятие = геология
в) дата рождения < 5.05.1989
г) дата <= 23.09.1996
д) алгебра >< отлично;
е) автор книги = Беляев А.Р.;
ж) год издания <=1990
з) место нахождения >=3
Var x,y:real;
begin
write('x = ');
readln(x);
if x<=3
then y:=x*x-3*x+3 else y:=1/(x*x+6);
writeln('y = ',y);
end.
Пример:
<span>x = 2
y = 1</span>
Диспетчер задач і системний блок