Информатика, опубликовано 2018-08-22 23:51:44 by Гость
Помогите составить программу в Turbo Pascal! Срочно надо! Надо найти значение Y. 4х+10 если х>0 ; 8+х если х
Ответ оставил Гость
Не совсем понял условие
но возможно так:
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
if (X>0) and (X
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.