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

Question

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

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.