Program n1;
var i,sum: integer;
begin
sum:=0;
for i:=100 to 999 do if i mod 47=43 then sum:=sum+i;
write(sum);
end.
Редактор какой нибудь газеты, бухгалтер, модератор, диспетчеры.
Для обычного пользователя, программа может в любой момент перестать работать, запрося ключ активации.
Если на предприятии используется не лицензионное ПО, могут возникнуть проблемы с законом, которые могут повлечь за собой крупные денежные штрафы.
125
125/2=62 остаток -1
62/2=31 остаток 0
31/2=15 остаток 1
15/2=7 остаток 1
7/2=3 остаток 1
3/2=1 остаток 1
Записываем получившиеся остатки в обратном порядке , но начнем с последнего частного (1)
1 1 1 1 1 0 1 (2)=125 (10)
255
255/2=127 остаток 1
127/2=63 остаток 1
63/2=31 остаток 1
31/2=15 остаток 1
15/2=7 остаток 1
7/2=3 остаток 1
3/2=1 остаток 1
Опять таки записываем получившиеся остатки в обратном порядке , но начнем с последнего частного (1)
1 1 1 1 1 1 1 1
Uses crt;
const n=3;
m=5;
var a:array[1..n,1..m] of integer;
i,j:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(15);
write(a[i,j]:3);
end;
end.