В массиве найти количество пар элементов, произведение которых имеет количество сотен, равное 3

@gidra_poison · Регистрация: 01.11.2012

Author24 — интернет-сервис помощи студентам

В данном одномерном массиве найдите количество пар различных элементов, произведение которых имеет количество
сотен равное 3.

@xkrotovx · 22.01.2013, 12:30

Pascal

var a:array [1..15] of integer;
    i,j,schet:integer;
begin
randomize;
for i:= 1 to 15 do begin a[i]:=random(100); write(a[i]:3) end;
writeln;
for i:= 1 to 15 do
begin
for j:= i to 15 do
begin
if i<>j then 
            begin
            if (a[i]*a[j] mod 1000)div 100 = 3 then
                                                    begin
                                                    inc(schet);
                                                    writeln(a[i],'----',a[j]);
                                                    end;
            end;
end;
end;
writeln(schet);
end.

@gidra_poison 0 / 0 / 1 Регистрация: 01.11.2012 Сообщений: 58
		1
	В массиве найти количество пар элементов, произведение которых имеет количество сотен, равное 3 21.01.2013, 15:16. Показов 1812. Ответов 1 Метки нет (Все метки) В данном одномерном массиве найдите количество пар различных элементов, произведение которых имеет количество сотен равное 3. 0

	22.01.2013, 12:30

В массиве найти количество пар элементов, произведение которых имеет количество сотен, равное 3

Решение