DIM X(10)
RANDOMIZE TIMER
FOR I = 1 TO 10
X(I) = INT(RND(1) * 20) + 1
PRINT X(I); " ";
NEXT I
PRINT
INPUT "Введите число"; K
P = 1
FOR I = 1 TO 10
IF X(I) MOD K = 0 THEN P = P * X(I)
NEXT I
<span>IF P = 1 THEN PRINT "Кратных нет" ELSE PRINT "P ="; P</span>
Как я поняла, нужно было использовать кусок кода, данный выше?
var
a: array[1..10] of integer;
imax, i: byte;
begin
Writeln('Массив:');
Randomize;
for i:=1 to 10 do
begin
a[i]:=Random(100);
write(a[i]:4);
end;
imax := 1;
for i:=2 to 10 do
if a[i] > a[imax] then imax := i;
writeln;
writeln('Максимальный элемент = ', a[imax]:3, ' в позиции ', imax:2);
<span>end.</span>
В идеале вот:
<span>uses ABCObjects, GraphABC;
const
x0 = 300;
y0 = 300;
K = 10;
var
i, j, x1, y1, x, y, n: integer;
x2, y2, fi, t: real;
begin
x := x0;
y := y0;
n := 500;
for j := 0 to K - 1 do
begin
fi := 2 * pi * j / K;
for i := 1 to n do
begin
t := 2 * pi * i / n;
x2 := 100*cos(t)+ 150;
y2 := 20*sin(t);
x1 := round(x2 * cos(fi) - y2 * sin(fi));
y1 := round(x2 * sin(fi) + y2 * cos(fi));
if i > 1 then
Line(x + x0, y0 - y, x0 + x1, y0 - y1);
x := x1;
y := y1;
end;
end;
new CircleABC(x0,y0,50,clyellow);
end<span>.</span></span>
// PascalABC.NET
begin
var num: integer;
while true do
begin
num := ReadlnInteger('введите 4-х значное число, num =');
if (num > 999) and (num <= 9999)
then break;
end;
var str := num.ToString;
foreach var x in str do
Println(x)
end.
1) 32х32=1024 пикселей
16 градаций уместится в 4 битах (2^4=16)
1024х4=4096 бит = 512 байт = 0,5 кбайт
2)512х256=131072 пикселей
64КБ=65536 Байт = 524288 бит
524288/131072=4 бита на пиксель
2^4=16 цветов в изображении