Помогите составить программу в Turbo Pascal! Срочно надо! Надо найти значение Y....

TeMkAzKZz2000 @TeMkAzKZz2000

October 2021 1 10 Report

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

Answers & Comments

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

1 votes Thanks 1

TeMkAzKZz2000 Спасибо)

Answers & Comments

rasstavte znaki prepinaniya srochno nado uprazhnenie 432

prosto pridumajte predlozheniyazaranee spasibouprazhnenie 486

pomogite napisat mini sochinenie 6 8predlozhenij na temu moya mechta

pomogite reshit zadachu 7 klass summa nakrest lezhashih uglov pri peresecheniidv

pomogite napisat pravilno mne tajnyj golos govoril chto ne kogda i ya tam

рекомендуемые вопросы

Helpful Links

Helpful Social