Задачи на массивы

[Sword991]

Помогите пожалуйста решить следущие задачи:
Даны натуральные числа n,b1,b2...bn. Найти те члены bk последовательности b1,b2...bn что при делении на 7 дают

остаток 1, 2, или 5.
-----------------------------------------------
Дано натуральное число n. Проверить, можна ли подать n! в виде произведения трёх последовательных целых чисел.
-----------------------------------------------
Два натуральных числа называются дружественными если каждое с них равно суме всех делителей другого, кроме самого

этого числа. Найти все пары дружественных чисел которые содержатся в диапазоне от 200 до 300.

[Mandrivnyk]

С/С++
Сделаю быстро и недорого.
Аська под аватаром.

[Sword991]

Интересует Turbo pascal!

[Rustafa13]

program abc;
var a:array... опишешь сам, короче тут ОПИСЫВАЙ МАССИВ КАК REAL
begin
for I:=1 to (диллинны масима, что в VAR описал) do read(b1[i]);
и так далее(со всеми массивами так делаешь) ЭТО МЫ ВВОДИМ ЧИСЛА МАССИВА!!!!!

if (b1[i]dev7=1) or (b1[i]dev7=1,5) or (b1[i]dev7=5) then
for I:=1 to длинны масива, что в ВАРе описал do write(b1[i])
else writeln('нет таких чисел');
end.

не проверял, но делается так.
Пожалуйста. Смерть жлобам! За такую задачу деньги просить.

Извини, другие делать - нет времени. Сам спешу.

[Sword991]

Спасибо большое!

[Sword991]

Все правильно сделал, почемуто не работает?

program abc;
var a:array [1..100] of real;
begin
for I:=1 to a[1..100] do read(b1[i]);
for I:=1 to a[1..100] do read(b2[i]);
for I:=1 to a[1..100] do read(bn[i]);

if (b1[i]dev7=1) or (b1[i]dev7=1,5) or (b1[i]dev7=5) then
for I:=1 to a[1..100] do write(b1[i])
else writeln('нет таких чисел');
if (b2[i]dev7=1) or (b2[i]dev7=1,5) or (b2[i]dev7=5) then
for I:=1 to a[1..100] do write(b2[i])
else writeln('нет таких чисел');
if (bn[i]dev7=1) or (bn[i]dev7=1,5) or (bn[i]dev7=5) then
for I:=1 to a[1..100] do write(bn[i])
else writeln('нет таких чисел');
end.

[Alex11223]

Ну как минимум потому что не объявлена большая часть переменных.
И что такое "b1[i]dev7" и подобное — непонятно.

[Sword991]

Какие еще нужно переменные обьявить?

[Alex11223]

Все, которые используются в вашем коде.

[Jaguar83]

Потому что неправильный код.
Человек, который тебе ответил, сам ничего не соображает, и автор соседней темы.

program abc;
const n = 10;
var i: Integer;
    a:array [1..10] of Integer;
begin
for i:=1 to n do
  Read(a[i]);
for i:=1 to n do
  if ((a[i] mod 7) = 1) or ((a[i] mod 7) = 2) or ((a[i] mod 7) = 5) then
    Writeln('Chislo naideno! a[',i,'] = ',a[i]);
 Readln;
end.