Добил её)
//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)
var x, y, a, b: longint;
begin
var ax:=new List<integer>;
for var i:=10000 to 99999 do begin
x:=i;
while x > 0 do begin
y := x mod 10;
if y >2 then a := a + 1;
if y < 8 then b := b + 1;
x := x div 10;
end;
If (a=3) and (b=4) then begin ax.add(i); end;
a:=0; b:=0;
end;
Println('Минимальное x->',ax.min); Println('Максимальное x->',ax.max);
end.
Результат:
Минимальное x-> 10338
Максимальное x-> 97722
Const n=20;
var x : array[1..n] of integer;
i, k1, k2 : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(221)-70;
write(x[i],' ');
end;
writeln;
k1:=0; k2:=0;
for i:=1 to n do
begin
if x[i] > 0 then k1:=k1+1;
if x[i] < 0 then k2:=k2+1;
end;
writeln('k1=',k1,' k2=',k2);
<span>end.
Пример:
Исходный массив:
73 -14 70 32 25 -31 110 117 11 -41 122 129 -49 54 65 57 -32 -49 110 -25
<span>k1=13 k2=7</span></span>
var i,n,s,a: integer;
begin
write('Сколько чисел вы хотите ввести: ');
readln(n);
writeln('Введите числа: ');
for i:= 1 to n do
begin
read(a);
if a mod 3=0 then s:=s+a;
end;
write('Сумма чисел кратных трём: ',s);
end.
Не совсем понимаю вопроса.
div - это целое значения после деления одного числа на другое
mod - это остаток от деления одного числа на другое
т.е. например
a:=7 div 2;
a=3
b:=7 mod 2;
b=1
Примеры использования div и mod могут быть разные. Например их можно использовать для деления числа на отдельные цифры. Так остаток от деления на 10 (a mod 10) даст нам последнюю цифру. А если для трёхзначного числа зададим (a div 100) то найдём его первую цифру. Так же для нахождения средней цифры в трёхзначном числе можно написать как ((a mod 100)div 10) так и ((a div 10)mod 10).
Так же с помощью mod можно находить количество цифр в числе, и программа будет выглядеть так:
var i:byte; a,k:integer;
a:=4873; k:=0;
while a>0 do begin
k:=k+1;
a:=a mod 10;
end;
writeln(k);
end.
Знаем что такое двоичная система? Так вот с помощью div и mod можно написать программу перевода числа в двоичную систему, или просто подсчитать количество нулей и единиц в двоичной записи числа. Подсчёт единиц и нулей выглядит так:
var a,b,c:integer;
a:=34;b:=0;c:=0;
while a>0 do begin
if a mod 2=0 then b:=b+1 else c:=c+1;
a:=a mod 10;
end;
writeln('количество нулей=',b);
writeln('количество единиц=',c);
end.
Вообще много чего можно придумать. Узнать чётное ли число(mod), узнать количество чётных и нечётных цифр в числе(mod), узнать сколько раз число a делиться на число b(mod и div).
Так div и mod можно использовать где угодно и как угодно, и всё зависит от фантазии человека который пишет программу. Единственное что надо помнить, что mod и real выполняются для чисел integer, и если мы попытаемся исполнить операции для real (например 3,4 или 6,7) то наткнёмся на ошибку. Ну а так же, чисто из математики, мы не можем делить на ноль, следственно (a div 0) тоже операция не выполнима так же как и (a mod 0) .