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

Question

Оня

23 октября, 12:11

+3

Ответы (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.