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

Написать программу, которая заполняет массив из 6 элементов случайными неповторяющимися целочисленными значениями от 1 до 49. после этого программа просит пользователя ввести 6 целых чисел от 1 до 49 (при вводе проверяется, что вводимое число соответствует данному условию; в противном случае число вводится повторно). программа считает, сколько чисел из введённых пользователем оказалась в массиве, и выводит их количество на экран. паскаль абс без плагеата program loto; uses crt; const lt = 49; (* количество шаров в лототроне *) shar = 6; (* количество выигрышных шаров*) var lott : array [1..lt] of integer; i, nom : integer; begin randomize; for i: =1 to lt do lott[i]: =i; i: =1; while i < = shar do begin nom : = random(49)+1; if lott[nom] < > 0 then begin write(lott[nom], ‘ ’); lott[nom] : = 0; i : = i+1; end; end; writeln; end. это начало по этой программе сделать

👇
Ответ:
Program Loto;
Uses Crt;
Const lt = 49; (* количество шаров в лототроне *)
shar = 6; (* количество выигрышных шаров*)
Var lott,vyb : array [1..shar] of integer;
i, j, nom, k : integer;
m:set of byte;
Begin
randomize;
m:=[];
for i:=1 to shar do
begin
repeat
nom:=1+random(lt);
until not(nom in m);
lott[i]:=nom;
m:=m+[nom];
end;
writeln('Выберите шаров от 1 до 6 ',lt);
m:=[];
begin
repeat
write('nom',i,'=');
readln(nom);
until (nom in [1..lt])and not(nom in m);
vyb[i]:=nom;
m:=m+[nom];
end;
clrscr;
writeln('Номера шаров в лототроне');
for i:=1 to shar do write(lott[i]:3);
writeln;
writeln('Выбранные шары');
for i:=1 to shar do
write(vyb[i]:3);
writeln;
write('Совпавшие шары: ');
k:=0;
for i:=1 to shar do
for j:=1 to shar do
if lott[i]=vyb[j] then
begin
k:=k+1;
write(lott[i]:3);
end;
if k=0 then write('- нет')
else write('  Их количество=',k)
end.
4,8(4 оценок)
Открыть все ответы
Ответ:
nsalexandrovna
nsalexandrovna
04.12.2020
Где N – основание системы счисления. Определите, для каких N верно данное неравенство . В ответе запишите через пробел все подходящие основания систем счисления в порядке возрастания . ответ: 7 8 || 7, 8 Решение: Из условия видно, что неравенство можно привести к виду: 50010 N3 – N2 25010. Так как N это основание системы счисления, то это целое положительное число строго большее 1. Кроме того, очевидно, что N3 – N2 определяет количество трехзначных чисел в соответствующей системе счисления . Далее можно предположить, что N меньше 10, так как в десятичной системе счисления трехзначных чисел 900, и N больше 6, так как 6*6*6 = 216, то есть трехзначных чисел меньше, чем 250. Остается получить N3 для диапазона значений N {7, 8}, что соответствует {343, 512} и окончательно проверить неравенства: 7: 50010 73 – 72 25010 ; 50010 343 – 49 25010 ; 50010 294 25010, верно . 8: 50010 83 – 82 25010 ; 50010 512 – 64 25010 ; 50010 448 25010, верно . Запишем ответ в правильной форме . Измерение объема информации ( ) 2 . [Телевидение высокой четкости] Вариант 1 В телевидении для уменьшения нагрузки на канал передачи данных существует два формата передачи кадра изображения: 1. Прогрессивная развертка – все точки кадра передаются сразу в рамках одного пакета . 2. Чересстрочная развертка – кадр разбивается на два полукадра, составленных из четных и нечетных строк кадра соответственно. Полукадры передаются по каналу передачи данных двумя последовательными пакетами . Определите высоту передаваемого устройству кадра в точках, если известно, что: 1. Ширина кадра 4096 точек . 2. Используется палитра в 232 цветов . 3. Разница между пакетами прогрессивной и чересстрочной разверток составляет ровно 13 712 КБайт . 4. Высота кадра составляет четное количество точек . В ответе укажите целое число точек . Примечание: 1 КБайт=1024 байта . ответ: 1714 Решение: Примем, что высота кадра обозначена Y, ширина X, а b – количество бит, требуемых на хранение одной точки, исходя из палитры в 232 цветов, равное 32. Тогда размер кадра в байтах определяется по формуле: X*Y*b Тогда условие задачи может быть выражено как: (X * Y * b) - (X * (Y/2) * b) = 13712 * 8 * 1024, следовательно: Y = (13712 * 8 * 1024 * 2)/ (X * b) = (13712 * 8 * 1024 * 2)/ (4096 * 32) = 1714 Далее корректно вводим ответ . Кодирование звуковой информации ( ) 3 . [Секретная строка] Вариант 1 Петя придумал новый свой шифрования текста. Он использует алфавит из 32-х русских букв (не использует букву «ё»). Каждой букве в по Объяснение:
4,4(76 оценок)
Ответ:
pikulev
pikulev
04.12.2020

ответ:Где N – основание системы счисления. Определите, для каких N верно данное неравенство .

В ответе запишите через пробел все подходящие основания систем счисления в порядке возрастания .

ответ: 7 8 || 7, 8

Из условия видно, что неравенство можно привести к виду:

50010 N3 – N2 25010. Так как N это основание системы счисления, то это целое положительное число строго большее

1. Кроме того, очевидно, что N3 – N2 определяет количество трехзначных чисел в соответствующей системе счисления .

Далее можно предположить, что N меньше 10, так как в десятичной системе счисления трехзначных чисел 900, и N больше 6, так как 6*6*6 = 216, то есть трехзначных чисел меньше, чем 250.

Остается получить N3 для диапазона значений N {7, 8}, что соответствует {343, 512} и окончательно проверить неравенства:

7: 50010 73 – 72 25010 ; 50010 343 – 49 25010 ; 50010 294 25010, верно .

8: 50010 83 – 82 25010 ; 50010 512 – 64 25010 ; 50010 448 25010, верно .

Запишем ответ в правильной форме .

Измерение объема информации ( ) 2 .

[Телевидение высокой четкости] Вариант 1 В телевидении для уменьшения нагрузки на канал передачи данных существует два формата передачи кадра изображения:

1. Прогрессивная развертка – все точки кадра передаются сразу в рамках одного пакета .

2. Чересстрочная развертка – кадр разбивается на два полукадра, составленных из четных и нечетных строк кадра соответственно. Полукадры передаются по каналу передачи данных двумя последовательными пакетами .

Определите высоту передаваемого устройству кадра в точках, если известно, что:

1. Ширина кадра 4096 точек .

2. Используется палитра в 232 цветов .

3. Разница между пакетами прогрессивной и чересстрочной разверток составляет ровно 13 712 КБайт .

4. Высота кадра составляет четное количество точек .

В ответе укажите целое число точек .

Примечание: 1 КБайт=1024 байта .

ответ: 1714

Примем, что высота кадра обозначена Y, ширина X, а b – количество бит, требуемых на хранение одной точки, исходя из палитры в 232 цветов, равное 32.

Тогда размер кадра в байтах определяется по формуле:

X*Y*b

Тогда условие задачи может быть выражено как: (X * Y * b) - (X * (Y/2) * b) = 13712 * 8 * 1024, следовательно:

Y = (13712 * 8 * 1024 * 2)/ (X * b) = (13712 * 8 * 1024 * 2)/ (4096 * 32) = 1714 Далее корректно вводим ответ .

Кодирование звуковой информации ( ) 3 .

[Секретная строка] Вариант 1 Петя придумал новый свой шифрования текста. Он использует алфавит из 32-х русских букв (не использует букву «ё»). Каждой букве в по

Объяснение:

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