М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
рот40
рот40
20.01.2023 00:00 •  Информатика

Информатика 9 класс. Нужно сделать все задания , так же написать программу в паскале .

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

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 оценок)
Ответ:
ruslan428
ruslan428
20.01.2023

1. Укажіть всі цілі від’ємні числа, що більші за -4,7 .

А) -3,-2,-1; В) -5, -4,-3, -2,-1;

Б) -4,-3,-2,-1,0; Г) -4,-3,-2,-1.

2. Сума двох чисел 25 і одне з них у 5 разів менше за інше. Яка із систем відповідає умові

задачі, якщо менше число позначили через х, а більше – через у?

А) В)

Б) Г)

3.При якому значенні т значення виразу 4-2т дорівнює 7?

А) -1,5; Б) -10; В) 1,5; Г) -5,5.

4. Розв’яжіть рівняння х2 +9х=0

А) 0; Б) -9; В) -9; 0; Г) 0; 9.

5.При якому значенні змінної х дріб не має змісту?

А) 2; Б) -2,4; В) -4; Г) -2.

6. Серед наведених систем укажіть таку, що не має розв’язків

А В)

Б) Г)

7. Чому дорівнює сума та добуток коренів квадратного рівняння х2- 8х +15 = 0;

8.Складіть квадратне рівняння, корені якого дорівнюють 2 - та 2 + .

9.Розв’яжіть систему рівнянь:

10. Розвяжіть рівняння: -у4 -5у2 +36 =0

ІІ рівень

ІІІ рівень

Объяснение:

4,6(95 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ