Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Помогите составить программу в Turbo Pascal! Срочно надо! Надо найти значение Y. 4х+10 если х>0 ; 8+х если х<4 это система уравнений! Сроочно

Ответ оставил Гость

Не совсем понял условие
 но возможно так:
var
  X,Y1,Y2:integer;
begin
    Write(Введите X: ); Readln(X);
  Y1:=4*X+10; Y2:=8+X;
  if X>4 then writeln(Y1=,Y1);
  if X<0 then writeln(Y2=,Y2);
  if (X>0) and (X<4) then   writeln(Y1=,Y1, Y2=,Y2);
end.