Предмет: Информатика,
автор: Оладушка222
Дано два числа.если числа четны,то вычислите их произведение,если числа не четны,то их сумму,в остальных случаях вычислите разность этих чисел.
Ответы
Автор ответа:
0
program pas;
var a,b,c:integer;
begin
readln(a,b);
if(a mod 2=0) and (b mod 2=0) then c:=a*b
else if(a mod 2=1) and (b mod 2=1) then c:=a+b
else c:=a-b;
write(c);
end.
var a,b,c:integer;
begin
readln(a,b);
if(a mod 2=0) and (b mod 2=0) then c:=a*b
else if(a mod 2=1) and (b mod 2=1) then c:=a+b
else c:=a-b;
write(c);
end.
Похожие вопросы
Предмет: География,
автор: demaanupriev12
Предмет: Математика,
автор: sultanabylay6
Предмет: Химия,
автор: datlovakata
Предмет: Физика,
автор: superTim