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.

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.

sashadedarewa · Accepted Answer

сделай мой ответ лучшим В 2016 году Россия Министерство спорта Российской Федерации приняла решение признать компьютерный спорт (киберспорт) официальным видом спорта и включить в Всероссийский реестр видов спорта. Таким образом, теперь все соревнования по киберспорту будут проходить под эгидой Министерства спорта.2)Управление физической культурой и спортом на государственном уровне осуществляется трехуровневой системой органов управления – субъекты управления. Наряду с государственным управлением...

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.

MOGZ ответил

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.