// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('Количество строк в массиве:'); var m:=ReadInteger('Количество столбцов в массиве:'); Writeln('*** Исходный массив [',n,',',m,'] ***'); var a:=MatrRandom(n,m,-99,99); a.Println(5); Writeln(5*a.ColCount*'-'); a:=a.ConvertAll(x->x.IsOdd?x+10:x-10); a.Println(5) end.
Var A,Sc,Sn:integer; Begin Sc:=0; Sn:=0; Write('Введите четырёхзначное число: ');ReadLn(A); //Если чётных(0,2,4,6,8) и нечётных(1,3,5,7,9) чисел: if (A div 1000) mod 2 = 0 then Sc:=Sc+A div 1000 else Sn:=Sn+A div 1000;
if ((A div 100) mod 10) mod 2 = 0 then Sc:=Sc+(A div 100) mod 10 else Sn:=Sn+(A div 100) mod 10;
if ((A div 10) mod 10) mod 2 = 0 then Sc:=Sc+(A div 10) mod 10 else Sn:=Sn+(A div 10) mod 10;
if (A mod 10) mod 2 = 0 then Sc:=Sc+(A mod 10) else Sn:=Sn+(A mod 10);
if Sc<Sn then WriteLn(Sn,' ',Sc) else WriteLn(Sc,' ',Sn);
//Если чисел, стоящих на чётных и нечётных позициях: Sc:=(A mod 10)+(A div 100) mod 10; Sn:=(A div 10) mod 10 + A div 1000;
if Sc<Sn then WriteLn(Sn,' ',Sc) else WriteLn(Sc,' ',Sn); End.
Это пример таблицы на Java(TM)