Задать вопрос
14 мая, 01:24

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

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

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

+1
Ответы (1)
  1. 14 мая, 01:49
    0
    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 утроить. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы