Предмет: Информатика,
автор: bogen
Определить является ли целая часть числа m/n
четной. Если она четная,
то m возвести в квадрат, иначе n утроить.
Ответы
Автор ответа:
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.
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.
Похожие вопросы
Предмет: Химия,
автор: gulmira1201
Предмет: Русский язык,
автор: Maria11000
Предмет: Математика,
автор: tumkafixeye
Предмет: Физика,
автор: LargePositive