Если 2^m больше чем 2m, то m увеличить в 10 раз. в противном случае m уменьшить в 2 раза. блок схема и паскаль

Question

Нюня

6 июля, 10:59

+5

Ответы (1)

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

Ефимья · Answer 1

var

m: Integer;

begin

Write ('Введите m: ') ; Readln (m) ;

if sqr (m) > 2*m then m : = m*10 else m : = m div 2;

Write (m) ;

Readln;

end.