Ответы
Ответ дал:
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.
bekzanbektenbaj45:
Спасибо!
Вас заинтересует
2 месяца назад
2 месяца назад
3 месяца назад
3 месяца назад
1 год назад
1 год назад
7 лет назад