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

Question

Информатика

Емилиана

21 февраля, 07:21

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

+5

Ответы (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.