ИВТ.Задание номер 16,18.Через паскаль.

0 голосов
32 просмотров

ИВТ.Задание номер 16,18.Через паскаль.


image

Информатика (22 баллов) | 32 просмотров
Дан 1 ответ
0 голосов

Var x:real;
function y16(x:real):real;
begin
  if x<=0 then y16:=x+2;<br>  if (x>0) and (x<3) then y16:=-x+2;<br>  if x>=3 then y16:=-2;
end;

function y18(x:real):real;
begin
  if x<=0 then y18:=-x-3;<br>  if (x>0) and (x<5) then y18:=x-3;<br>  if x>=5 then y18:=2;
end;

begin
  readln(x);
  writeln(y16(x));
  writeln(y18(x))
end.

(4.7k баллов)