Const
M = 3;
N = 3;
Var
A:array[1..M,1..N]of real;
B:array[1..N]of integer;
i,j:integer;
Begin
WriteLn('Заполни массив ',M,'x',N);
For i:= 1 to M do
For j:= 1 to N do
Read(A[i,j]);
For j:= 1 to N do
For i:= 1 to M do
if (A[i,j]>0) then B[j]:=B[j]+1;
j:=N;
For i:= 1 to N-1 do
if (B[j]>B[i]) then j:=i;
WriteLn(j)
End.
"dpi" - точек в дюйме. 1200 * 10,16 * 1200 * 10,16 = 148644864 точки. log2(32) = 5 битов. Для хранения 5 битов нужен 1 байт. Т. о. байт на точку или 148644864 / 1024 / 1024 ~= 141,76 МБ. Если предположим, что 5 битов раскидываются по разным байтам, сжимая таким образом файл, то 148644864 * 5 / 1024 / 1024 / 8 ~= 88,6 МБ.
begin
ReadInteger('num =').ToString.ToCharArray
.IndexesOf(x -> x = '7').Select(x -> x + 1).Println;
end.
А) (a mod 1 = 0) And (a mod a = 0)
Б) a mod 1 = 0
В)(a >= 10) and (a<= 99)
Из целых чисел такая пара только одна - 2 и 2.
А если программу писать, то так
var a, b: integer
BEGIN
for a=1 to 100 do
begin
for b=1 to 100 do
begin
if a+b=a*b then write (a, b);
end;
end;
END.
Если можно брать нецелые числа, то для любого х второе число равно x/(x-1)
Например, 3 и 3/2. 3 + 3/2 = 3*3/2 = 9/2