Составить программу: если х <=83 то найти y=28 х + 157 иначе вычислить у=20 х-595

Question

Информатика

Артемыч

9 мая, 07:12

Составить программу: если х <=83 то найти y=28 х + 157 иначе вычислить у=20 х-595

+3

Ответы (2)

Знаешь ответ?

Леонилла · Answer 1

Var x, y:real;

Begin

Write ('Введите x = '); readln (x);

if (x<=83) then y:=28*x+157

else y:=20*x-595;

Writeln ('y=', y);

end.

Линуша · Answer 2

Var x, y:integer;

begin

readln (x);

if x<=83 then writeln ('При x=', x,' y=28x + 157=', 28*x + 157)

else writeln ('При x=', x,' y=20x-595=',20*x-595);

end.