y={x+50,1<x, 2x+20,x<1 0,x<1 немесе x>-1 помогите пожалуйста! Смотреть ответ Реклама Реклама Вованичикчка Вованичикчка
// PascalABC.Net
var x, y: integer;
begin
write('Введите x: ');
readln(x);
if x > 1 then
y := x + 50;
if x < 1 then
y := 2*x + 20;
if (x < 1) or (x > -1) then
y := 0;
writeln('y = ', y);
end.
- Спасибо!