B) Ввести число. Если его модуль больше 7, уменьшить число в 1,5 раза, в противном случае увеличить в 7 раз.

Question

Василла

7 сентября, 02:29

+3

Ответы (1)

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

Зинуся · Answer 1

Var n:real;

begin

readln (n) ;

if abs (n) >7 then begin

n:=n/1.5;

end else begin

n:=7*n;

end;

writeln (n) ;

end.