Составить программу в turbo pascal! надо! надо - вопрос №3616626 от arsenteva220103 25.10.2020 10:15

Question

Информатика: Составить программу в turbo pascal! надо! надо найти значение y. 4х+10 если х 0 ; 8+х если х 4 это система уравнений

arsenteva220103 · Answer

Не совсем понял условие
но возможно так:
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.

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