<span>https </span>:// <span>obr.ru </span> / <span>math.doc
</span>Ответ: ЖДАВБЕГ
var x,y,z:Integer;
begin
for x:=1 to 9 do
for y:=0 to 9 do
for z:=0 to 9 do
if 3*(1000+x*100+y*10+z)=x*1000+y*100+z*10+1 then Writeln(1,x,y,z);
Readln;
end.
Var
n,e,d,s,sum: integer;
begin
writeln ('vvedi cislo n');
read (n);
if (n<100) or (n>999) then writeln ('False');
if (n>100) and (n<999) then
begin
e:= (n mod 10);
writeln ('e',e);
s:=(n div 100);
writeln ('s',s);
d:=(n div 10)-s*10;
writeln ('d',d);
sum:=s+d+e;
writeln ('sum',sum);
if sum=13 then writeln ('Enter')
else
writeln ('Lock');
end;
end.
RFV,EP RE,HBR ZRJHM
DFDASD ASD ASD ASDAS DASD ASD
{Массив задаётся с помощью генератора случайных чисел. после того как он задан, последовательно перебираются все элементы и определяется наименьший элемент.}
procedure minZNmas;
<span> var
</span> mas: array[1..15] of integer;
k: integer;
min: integer; s: string;
begin
randomize;
//Заполнение массива случайными величинами
s:='';
for k:=1 to 15 do begin
mas[k]:=random(800);
s:=s+IntToStr(mas[k])+',';
end;
//Поиск минимального значения
min:=mas[k];
for k:=1 to 15 do
if mas[k]<min then
min:=mas[k];
Application.MessageBox(PChar(s),'Значения массива', MB_ICONINFORMATION);
Application.MessageBox(PChar(IntToStr(min)),'Минимальное значение', MB_ICONINFORMATION);
end;
begin minZNmasend.