PascalABC.NET 3.2, сборка 1387 от 20.02.2017 Внимание! Если программа не работает, обновите версию!
//const // MAX_ROW=5; // MAX_COL=8; begin var a:=MatrRandom(MAX_ROW,MAX_COL,10,99); a.Println(3); (var imax, var jmax, var imin, var jmin):=(0,0,0,0); for var i:=0 to MAX_ROW-1 do for var j:=0 to MAX_COL-1 do if a[i,j]>a[imax,jmax] then (imax,jmax):=(i,j) else if a[i,j]<a[imin,jmin] then (imin,jmin):=(i,j); for var i:=0 to MAX_ROW-1 do Swap(a[i,jmax],a[i,jmin]); Writeln('-'*3*MAX_COL); a.Println(3) end.
Для проверки работы программы снимите комментарии с первых трех строк.
Var A,B,m1,m2:integer; Begin Write('A = ');Read(A); Write('B = ');Read(B); A:=abs(A); B:=abs(B); m1:=A mod 10; A:=A div 10; if A mod 10 > m1 then m1:=A mod 10; A:= A div 10; if A mod 10 > m1 then m1:=A mod 10;
m2:=B mod 10; B:=B div 10; if B mod 10 > m2 then m2:=B mod 10; A:= B div 10; if B mod 10 > m2 then m2:=B mod 10;
WriteLn('Максимальная цифра в A = ',m1); WriteLn('Максимальная цифра в B = ',m2); End.
Var i:integer; Begin Write('Кратные 4: '); For i:= 1 to 1000 do if i mod 4 = 0 then Write(i,' '); WriteLn;
Write('Кратные 8: '); For i:= 1 to 1000 do if i mod 8 = 0 then Write(i,' '); WriteLn;
Write('Кратные 2: '); For i:= 1 to 1000 do if i mod 2 = 0 then Write(i,' '); WriteLn;
Write('Кратные 4,8,2: '); For i:= 1 to 1000 do if i mod 8 = 0 then Write(i,' '); WriteLn;
