Ввести число, если оно больше 10, то разделить его на 2, если меньше или = 10, то умножить на 5 (с помощью алгоритма с ветвлением)

Question

Светислава

17 октября, 06:09

+5

Ответы (1)

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

Станислава · Answer 1

Var

n:real;

begin

readln (n) ;

if n>10 then

n:=n/2

else

n:=n*5;

writeln (n) ;

end.