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

Question

Ританя

9 марта, 18:10

+1

Ответы (1)

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

Лександра · Answer 1

Var

n:real;

begin

readln (n) ;

if n>10 then

n:=n/2

else

n:=n*5;

writeln (n) ;

end.