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.
// 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.
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.
// Внимание! Если программа не работает, обновите версию!
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.
Пример
Количество строк в массиве: 5
Количество столбцов в массиве: 10
*** Исходный массив [5,10] ***
66 -57 -2 69 45 -44 35 -96 -48 87
20 -32 -14 -41 -78 2 95 5 61 99
13 -7 86 58 -57 3 -58 14 -48 16
85 42 -57 90 -88 56 53 92 14 -97
84 87 93 93 -29 -32 24 42 89 -62
56 -47 -12 79 55 -54 45 -106 -58 97
10 -42 -24 -31 -88 -8 105 15 71 109
23 3 76 48 -47 13 -68 4 -58 6
95 32 -47 80 -98 46 63 82 4 -87
74 97 103 103 -19 -42 14 32 99 -72