1) Сколько раз будет выполняться цикл for i:=3 to 8 do…; 5
7
8
6

2) Сколько раз будет выполняться цикл for i:=6 downto 1 do <тело цикла>;

👇

Увидеть ответ

Ответ:

serhius

13.08.2020

1) 6

2) 6

Объяснение:

1) 8 - 3 + 1 = 6 раз

for начальное значение переменной счётчика to конечное значение переменной счётчика do

начальное значение переменной счётчика <= конечное значение переменной счётчика (или цикл не будет работать)

количество раз выполнения цикла = конечное значение переменной счётчика - начальное значение переменной счётчика + 1

2) 6 - 1 + 1 = 6 раз

for начальное значение переменной счётчика downto конечное значение переменной счётчика do

начальное значение переменной счётчика >= конечное значение переменной счётчика (или цикл не будет работать)

количество раз выполнения цикла = начальное значение переменной счётчика - конечное значение переменной счётчика + 1

4,6(40 оценок)

Открыть все ответы

Ответ:

01029283736463637

13.08.2020

3D-моделирование — процесс создания трёхмерной модели объекта. Задача 3D-моделирования — разработать зрительный объёмный образ желаемого объекта. При этом модель может как соответствовать объектам из реального мира (автомобили, здания, ураган, астероид), так и быть полностью абстрактной (проекция четырёхмерного фрактала).

Графическое изображение трёхмерных объектов отличается тем, что включает построение геометрической проекции трёхмерной модели сцены на плоскость (например, экран компьютера) с специализированных программ. Однако с созданием и внедрением 3D-дисплеев и 3D-принтеров трёхмерная графика не обязательно включает в себя проецирование на плоскость.

Объяснение: лови

4,4(96 оценок)

Ответ:

kurolesov71

13.08.2020

{
Если что, часть программы не нужна для построения цепочки. Она просто иллюстрирует, что полученный результат верен.
}

var
sq : array[0..999] of array[0..9] of boolean;
co : array[0..999] of integer;
ar : array[1..10003] of 0..9;
i,j: integer;
x: integer;
t : boolean;
begin
for i := 0 to 999 do
begin
for j := 0 to 9 do
sq[i][j] := false;
co[i] := 0;
end;
for i := 1 to 3 do
ar[i] := 0;
i := 3;
t := true;
{write('000');}
while t do
begin
i := i + 1;
x := ar[i-3]*100 + ar[i-2]*10 + ar[i-1];
if co[x] >= 10 then t := false
else
begin
j := 1;
while sq[x][j] do
j := (j + 1) mod 10;
ar[i] := j;
sq[x][j] := true;
co[x] := co[x] + 1;
{write(j)}
end;
end;
{writeln;}
writeln('Length: ',i - 1);

{просто чтобы убедиться}
for i := 0 to 999 do
for j := 0 to 9 do
sq[i][j] := false;

t := true;
j := 0;
i := 1;
while (i <= 10000) and t do
begin
x := ar[i] * 100 + ar[i+1] * 10 + ar[i+2];
if sq[x][ar[i+3]] then t := false
else
begin
sq[x][ar[i+3]] := true;
j := j + 1;
end;
i := i + 1
end;
if t and (j = 10000) then
write('Confirmed')
end.

4,6(89 оценок)

Это интересно:

Компьютеры-и-электроника

04.07.2022

Как удалить историю поиска в iPod Touch: шаги по настройке конфиденциальности...

Здоровье

10.07.2021

Голубые глаза: миф или реальность?...

Образование-и-коммуникации

21.09.2020

Как убедить человека рассказать свой секрет? Открываем профессиональные секреты психологии...

Хобби-и-рукоделие