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

Вклассе n учеников писали проверочную работу по результаты проверочные работы подводились в оценок напишите программу подсчитывающую сколько человек получили пятёрку тройку двойку данные в массив вводится случайным образом в диапазоне от 3 до 5 количество учеников не превышает 30 человек значение элементов массива вывести на экран зарание )

👇
Ответ:
дара333
дара333
03.12.2020

const n = 30;

var a:array[1..n] of integer;

n3,n2,n5,i:integer;

begin

for i:=1 to n do begin

  a[i]:=random(2,5);

  if a[i]=3 then inc(n3);

  if a[i]=2 then inc(n2);

  if a[i]=5 then inc(n5); 

end;

writeln('3 - ',n3);

writeln('2 - ',n2);

writeln('5 - ',n5);

print(a);

end.

4,6(82 оценок)
Открыть все ответы
Ответ:
Mashylka999
Mashylka999
03.12.2020

1. 1,5 Кбайт

2. 8 бит

Объяснение:

1.

N = 2^i

N - мощность алфавита (количество символов в алфавите)

i - информационный вес одного символа алфавита

N = 64 символа

i = 6 бит (64 = 2^6)

I = K * i

I - информационный объём сообщения

K - количество символов в сообщении

i - информационный вес одного символа алфавита

K = 2048 символов

I = 2048 * 6 = 12288 бит

12288 бит = 12288 / 8 = 1536 байт (1 байт = 8 бит)

1536 байт = 1536 / 1024 = 1,5 Кбайт (1 Кбайт = 1024 байт)

2.

I = K * i

I = 32 Кбайт = 32 * 1024 = 32768 байт = 32768 * 8 = 262144 бит

K = 32768 символов

i = I / K

i = 262144 / 32768 = 8 бит

8 бит = 1 байт

4,7(82 оценок)
Ответ:
6Darya6
6Darya6
03.12.2020
// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!

function IsPrime(m:integer):=(Range(2,Round(sqrt(m))).All(x->m mod x<>0));

begin
  var n:=ReadInteger('n=');
  Range(1,n).Where(i->IsPrime(i)).Println
end.

Пример
n= 318
1 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 199 211 223 227 229 233 239 241 251 257 263 269 271 277 281 283 293 307 311 313 317

// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!

function NOD(m,n:integer):integer;
begin
  while n>0 do (m,n):=(n,m mod n);
  Result:=m
end;

begin
  var a,b:integer;
  Write('Введите пару натуральных чисел:'); Read(a,b);
  Writeln('НОД=',NOD(a,b))
end.

Пример
Введите пару натуральных чисел:7955 5661
НОД=37

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