Незнаю но помоему так 2. А)Integer; Б)Real; В)Integer; Г)Real; Д)Integer; Е)-Незнаю Помоему так !!! Поправте буду рад!! 1. скрытый текст а Uses WinCrt; Begin WriteLn(6.9, ' преобразовывается в ', Trunc(6.9)); End. б Uses WinCrt; Begin WriteLn(6.2, ' преобразовывается в ', Trunc(6.2)); End. в Uses WinCrt; Var x:integer; Begin x:=20 div 6; WriteLn(20 div 6, ' = ', x); End. г Uses WinCrt; Var x:integer; Begin x:=2 div 5; WriteLn(2 div 5, ' = ', x); End. д Uses WinCrt; Begin WriteLn(6.9, ' округленно = ', Round(6.9)); End. е Uses WinCrt; Begin WriteLn(6.2, ' округленно = ', Round(6.2)); End. ж Uses WinCrt; Var x:integer; Begin x:=20 mod 6; WriteLn(20 mod 6, ' = ', x); End. 3 Uses WinCrt; Var x:integer; Begin x:=2 mod 5; WriteLn(2 mod 5, ' = ', x); End.