Видеоадаптер vga, распространённый в начале 90-х годов, позволял получить 16-ти цветное изображение размером 640x480 точек. сколько видеопамяти потребуется для хранения такого изображения?
var n, m, max, k, i: integer; ar: array of integer;
function CountOfDel(n: integer): integer; var i, k: integer; begin if n>0 then begin for i := 1 to n do if n mod i = 0 then inc(k); end else for i:= n to -1 do if n mod i = 0 then inc(k); CountofDel := k; if n=0 then CountofDel:=0; end;
begin readln(n, m); k := 0; max := 0; for i := n to m do begin if CountOfDel(i)=0 then begin writeln('0'); exit; end; if CountOfDel(i) > max then begin k := 1; setlength(ar, k); ar[k - 1] := i; max := CountOfDel(i); end else if CountOfDel(i) = max then begin inc(k); setlength(ar, k); ar[k - 1] := i; end; end; for i := 0 to k - 1 do write(ar[i]:4); end.
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016 begin var m,n:integer; Write('Количество строк и столбцов матрицы: '); Read(n,m); var a:=MatrixRandom(n,m,10,99); for var i:=0 to n-1 do begin for var j:=0 to m-1 do Print(a[i,j]); Writeln end; var p:=ReadInteger('Введите число Р:'); var b:array of integer; SetLength(b,4*m); var k:=0; for var i:=n-p to n-1 do for var j:=0 to m-1 do if a[i,j] mod 4=0 then begin b[k]:=a[i,j]; Inc(k) end; SetLength(b,k); b.Print end.
