// Программы на писаны на PascalABC.NET
// 7.6:
var
number: integer;
Begin
For number := 1000 to 9999 do
if ((number mod 133 = 125) and (number mod 134 = 111)) then
WriteLn(number);
End.
// Нашлось одно единственное число: 1987
___________________________
// 7.7
var
Sum, a, b, c, count: integer;
Begin
count := 0;
// Число 500 не проверяется, т.к. очевидно, что 5 + 0 + 0 != 15
For a := 1 to 4 do
For b := 0 to 9 do
For c := 0 to 9 do
begin
Sum := a + b + c;
if (15 = Sum) then
count := count + 1;
end;
WriteLn('Кол-во искомых чисел: ', count);
End.
// Кол-во искомых чисел: 26
const
N=10;
var
a:array[1..N]of integer;
i,count,sum,t,max,min:integer;
begin
randomize;
sum:=0; count:=0; t:=0;
max:=-21; min:=21;
for i:=1 to N do
begin
a[i]:=random(41)-20;
write(a[i]:4);
sum:=sum+abs(a[i]);
if a[i] mod 9 = 2 then
begin
inc(count);
t:=t+a[i];
end;
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
writeln; writeln('Sum: ',sum);
writeln('Count(x/9=2): ',count);
writeln('SumOst: ',sum-t);
writeln('Min: ',min,' Max: ',max );
writeln('Min*Max: ',min*max);
end.
a,flag:array[1..10000]of integer;
i,n,k:integer;
begin
readln(k);
for i:=1 to k do
a[i]:=i;
for i:=2 to k do
if flag[i]=0 then
begin
write(a[i],' ');
for n:=i+1 to k do
if n mod i = 0
then flag[n]:=1;
end;
end.