Var a,b:integer;d: real; Begin Writeln(a,b); Readln(a,b); d:=a+b; If d mod 2=0 then...

Question

Var a,b:integer;d: real; Begin Writeln(a,b); Readln(a,b); d:=a+b; If d mod 2=0 then d:=a*b else d:=a/b; Writeln(a=a); End.

Answer 1

Ответ: не знаю

Объяснение:

Не знаю

Comments

очень позновательно