Задачи на массивы, разминка для мозгов Опции

[Ksander]

6. Напишите программу, определяющую произведение
Xn(Xn+Xn-1) (Xn+Xn-1+Xn-2) ... (Xn+...+X1). Здесь Xi - элементы массива.


7. Найти все натуральные числа, не превосходящие заданного n , которые делятся на каждую из своих цифр.

[FreeMan]

Извиняюсь за возможные ошибки. Делал без компилятора (не проверял).
6)

Код

uses crt;
const n=10;
var
a: array[1..n] of integer;
i,j: word;
sum, result: real;
begin
clrscr;
randomize;

r:=1;
for i:=1 to n do a[i]:=random(100)-50;
for i:=n downto 1 do begin
sum:=0;
for j:=n downto i do inc(sum,a[j]);
result:=result*sum;
end;
writeln(result);
readkey;
end.

7)

Код

uses crt;
var
n:integer;
i,j,ch,x:integer;
flag:boolean;
begin
clrscr;
readln(n);
for i:=1 to n do begin
ch:=i;
flag:=true;
while (ch<>0) and flag do begin
x:=ch mod 10;
ch:=ch div 10;
if i mod x <>0 then flag:=false;
end;
if flag then writeln(i);
end;
end.

Сообщение отредактировано: FreeMan - 5.08.2004 11:45