Предмет: Информатика,
автор: TeMkAzKZz2000
Помогите составить программу в Turbo Pascal! Срочно надо! Надо найти значение Y. 4х+10 если х>0 ; 8+х если х<4 это система уравнений! Сроочно
Ответы
Автор ответа:
0
не совсем понял условие
но возможно так:
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.
но возможно так:
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.
Автор ответа:
0
Спасибо)
Интересные вопросы
Предмет: Алгебра,
автор: user7563
Предмет: География,
автор: viktoriafedik90
Предмет: Русский язык,
автор: andgela47
Предмет: Химия,
автор: Olyaklub
Предмет: Литература,
автор: Lerka155