// PascalABC.NET 3.3, сборка 1542 от 05.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=8; var a:=new real[n,n]; var k:=1; for var i:=0 to n-1 do for var j:=0 to n-1 do begin if i.IsEven then a[i,n-1-j]:=k else a[i,j]:=k; k+=1 end; a.Println(3,0) end.
Var a,b,c,max,two: Integer; begin writeln('Введите 1 число'); readln(a); writeln('Введите 2 число'); readln(b); writeln('Введите 3 число'); readln(c); max:=a; if max < b then max:=b; if max < c then max:=c; if max=a then begin two:=max; if c < b then two:=b; if c > b then two:=c; writeln(max,'+',two,'=',max+two); end; if max=b then begin two:=max; if c < a then two:=a; if c > a then two:=c; writeln(max,'+',two,'=',max+two); end; if max=c then begin two:=max; if a < b then two:=b; if a > b then two:=a; writeln(max,'+',two,'=',max+two); end; end.
3) UTF-8
Объяснение:
UTF-8 использует переменное количество байт