ввести число ... если оно больше 8 разделить его на 4, если меньше или равно 8 то умножить на пять!

if x>8 then y:=x/4 else y:=x*5

Question

Фея

9 мая, 11:19

+1

Ответы (1)

Знаете ответ на вопрос?

Антиох · Answer 1

var x, y: real;

begin

readln (x) ;

if x>8 then y:=x/4 else y:=x*5;

writeln (y) ;

end.

ввести число ... если оно больше 8 разделить его на 4, если меньше или равно 8 то умножить на пять!if x>8 then y:=x/4 else y:=x*5