Напишите наименования (термины) элементов, обозначенных подчеркнутым курсивом: Var x : Real;
Function Second(var x :Integer) : Real;
Var y : Integer;
Begin
For y:=1 To 10 Do Second := y/x;
End;

моюр    1   12.12.2020 06:13    0