Определить является ли целая часть числа m/n

четной. Если она четная,

то m возвести в квадрат, иначе n утроить.

Question

Информатика

Боруля

24 декабря, 15:54

Определить является ли целая часть числа m/n

четной. Если она четная,

то m возвести в квадрат, иначе n утроить.

+1

Ответы (1)

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

Любомысл · Answer 1

Var m, n:integer;

begin

write ('Введите два числа m и n: ') ; Readln (m, n) ;

if (m div n) mod 2 = 0 then m:=m*m

else n:=n*3;

Write ('m=', m,', n=', n) ;

end.

Определить является ли целая часть числа m/nчетной. Если она четная,то m возвести в квадрат, иначе n утроить.

Определить является ли целая часть числа m/n

четной. Если она четная,

то m возвести в квадрат, иначе n утроить.