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

веран веран    3   15.06.2019 22:40    1

Ответы
Алексей22891 Алексей22891  12.07.2020 21:57
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика