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

Паскаль: определить сколько раз встречается число k при генерации чисел с цикла for (элементы сгенерировать randomom)

👇
Ответ:
LadyAmfetamin
LadyAmfetamin
30.01.2022

program raf105;

var n,k,i,raz:integer;

begin

write('Сколько чисел нужно сгенерировать?: ');

readln(n);

write('Число, которое нужно посчитать (k): ');

readln(k);

for i:=1 to n do

if (random(0,100))=k

 then raz:= raz+1;

writeln('Из ',n,' сгенерированных чисел число ',k,' встретилось ',raz,' раз');

end.

Язык программирования PascalABC

4,8(67 оценок)
Открыть все ответы
Ответ:
lubas143
lubas143
30.01.2022

ответ: 1)Предотвратить заражение и другие угрозы

Защищать рабочие станции от информационных угроз ( вирусы , хакеры), предотвращать

3) Ноутбуки , смартфоны , планшеты , умный офис

4) Сотрудники не знающие правила информационной безопасности, конкуренты , хакеры , промышленные шпионы, мошенники. 5) Хакеры , вирусы, фишинг , нигерийский письма 6) Обучение сотрудников ( тренинги, лекции) ,объявление награды за предотвращение вирусного заражения , наличие службы информационной безопасности ,системного администратора, наличие защитного решения 7) Антивирус для бизнеса Kaspersky , Dr.Web, Avira,Panda,360 Security ,

4,4(36 оценок)
Ответ:
ляпрпммм
ляпрпммм
30.01.2022

ответ: 1)Предотвратить заражение и другие угрозы

Защищать рабочие станции от информационных угроз ( вирусы , хакеры), предотвращать

3) Ноутбуки , смартфоны , планшеты , умный офис

4) Сотрудники не знающие правила информационной безопасности, конкуренты , хакеры , промышленные шпионы, мошенники. 5) Хакеры , вирусы, фишинг , нигерийский письма 6) Обучение сотрудников ( тренинги, лекции) ,объявление награды за предотвращение вирусного заражения , наличие службы информационной безопасности ,системного администратора, наличие защитного решения 7) Антивирус для бизнеса Kaspersky , Dr.Web, Avira,Panda,360 Security ,

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