Показать сообщение отдельно
Старый 31.01.2011, 15:14   #3 (permalink)
LeoN47AK
Новичок
 
Регистрация: 31.01.2011
Сообщений: 2
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

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.
LeoN47AK вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070