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

Составим все возможные последовательности из пяти букв, используя только символы L, R, V, и выпишем их в алфавитном порядке. Вот начало этого списка:


R
V
LLLRL
Определите последовательности, которые будут идти в этом списке под номерами 8, 81, 98, 110, 179.

Возможно, вам будет проще ответить на третий и четвертый во если вы будете знать, что на 100-м месте в этом списке стоит строка RLVLL.

👇
Открыть все ответы
Ответ:
Runalbert
Runalbert
27.07.2020
Пишу ответ на С++ и QBasic, если у Вас другой язык, то просто измените синтаксис:
1) max=-10000;
number=0;
for (int i=0;i<3;i++)
{
if A[i]>max;
{
max=a[i];
number = i;
}
}
2)
DECLARE FUNCTION f! (x!)  
CLS INPUT "[A; B] = "; A, B
INPUT "SHAG H = "; n  
FOR x = A TO B STEP n    
n = n + 1    
IF n MOD 20 = 0 THEN      
PRINT "PRESS ENTER"      
DO: LOOP UNTIL INKEY$ <> ""      
CLS    
ELSE      
IF ABS(x) < 1 THEN        
 PRINT USING "X = ###.###"; x;          
PRINT "   Y =    ---"      
ELSE          
PRINT USING "X = ###.###   Y = ###.###"; x; f(x)      
END IF    
END IF
NEXT
END  
FUNCTION f (x)  
 IF ABS(x) <= 2 THEN    
  IF ABS(x) >= 1 THEN f = SQR(x ^ 2 - 1)  
 ELSE    
   f = x + 5    END IF
END FUNCTION
4,4(20 оценок)
Ответ:
1)

program t1;
var
a: array[1..6] of integer;
i, m, mi: integer;
begin
writeln('ввод массива');
for i := 1 to 6 do
readln(a[i]);
mi := 1;
m := a[mi];
for i := 2 to 6 do
if a[i] < m then
begin
mi := i;
m := a[mi];
end;
writeln('минимум: ', m, ' (a[', mi, '])');
end.

2) предполагая, что 'коробочка' - это корень

program t2;
const
F = -8;
T = 6;
S = 2;
var
i: real;
function GetY(x: real): real;
begin
if (x > -3) and (x <= 3) then
GetY := sqrt(x)
else
GetY := 1 / (x * x);
end;
begin
writeln('промежуток [', F, '; ', T, '], шаг ', S, ':');
i := F;
while i <= T do
begin
writeln('y(', i, ') = ', GetY(i));
i := i + S;
end;
end.
4,4(65 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ