LeoN47AK

1.Заданы два натуральных числа a и b. Переменной w присвоить значение истина, если в одномерном целочисленном массиве имеется хотя бы один элемент, кратный а и не кратный b.
2.Составить алгоритмы и программы перевода старинных русских мер длины, торгового и аптекарского веса (счетчик цикла меняется от 1 до 10):
a. саженей в метры ( 1 сажень равна 2,1366 м)
b. футов в метры (1 фут равен 0,3048 м)
c. драхм в граммы (1 драхма равна 3,7325 г)
d. унций в граммы (1 унция равна 29,86 г)
e. фунтов в килограммы (1 фунт равен 0,40951 кг)
f. аршинов в метры (1 аршин равен 0,7112 м)
g. золотников в граммы (1 золотник равен 4,2657 г)
h. дюймов в миллиметры (1 дюйм равен 25,3995 мм)
3.Составить программу для вычисления числа е с точностью до 0.000001 по формуле 1 + 1/1! + 1/2! + 1/3! + ...
4.Два двузначных числа, записанных одно за другим, образуют четырехзначное число, которое делится на их произведение. Найти эти числа.
Листинг есть в блок схемах к сожалению не шарю заранее спасибо за помощь!!!

shrek=)

LeoN47AK если вам нужны блок-схемы по вашим листингам, то выкладывайте их сюда.

LeoN47AK

1.Заданы два натуральных числа a и b. Переменной w присвоить значение истина, если в одномерном целочисленном массиве имеется хотя бы один элемент, кратный а и не кратный b.
program Project1;
{$APPTYPE CONSOLE}
uses sysutils;
var
l:array[1..100] of integer;
a,b,n,i:integer;
w:boolean;
begin
readln(n);
randomize;
for i:=1 to n do
begin
l[i]:=random(10)-3;
write(l[i]:3);
end;
writeln;
readln(a,b);
w:=false;
for i:=1 to n do
if (l[i] mod a=0) and (l[i] mod b<>0) then
begin
w:=true;
end;
writeln(w);
readln;
end.


3.Составить программу для вычисления числа е с точностью до 0.000001 по формуле 1 + 1/1! + 1/2! + 1/3! + ...
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
VAR
a,e:REAL;
i:BYTE;
BEGIN
e:=1;
i:=0;
a:=1;
Repeat
Inc(i);
a:=a/i;
e:=e+a;
Until a<0.000001;
WriteLn(e:9:7);
ReadLn;
END.


Два двузначных числа, записанных одно за другим, образуют четырехзначное число, которое делится на их произведение. Найти эти числа.
program Project2;
{$APPTYPE CONSOLE}
uses sysutils;
var
i,j:integer;
begin
for i:=10 to 99 do
for j:=1 to 99 do
if (i*100+j) mod (i*j) = 0 then writeln(i,' i ',j);
readln
end.