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

1.напишите программу нахождение максимального среди трёх чисел. 2.вводятся оценки за контрольные работы по и ,выведите на экран молодец,если их сумма равна или более 9,иначе подтянись.

👇
Ответ:
korostin2004
korostin2004
04.07.2021
PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

№1

begin
  var (a,b,c):=ReadReal3('Введите три числа через пробел:');
  Writeln('Максимальное число ',Max(a,Max(b,c)))
end.

№2

begin
  var (a,b):=ReadInteger2('Введите две оценки через пробел:');
  if a+b>=9 then Writeln('Молодец!')
  else Writeln('Подтянись!')
end.
4,7(69 оценок)
Открыть все ответы
Ответ:
NataliZotow
NataliZotow
04.07.2021

N= 2^{i}

"N" - мощность алфавита.

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

#1. N=2 в степени i

Так как N=32, отсюда следует, что i=5 битам.

#2. По аналогии выше. Только теперь N=8. А 8 - это 2 в степени 3.

то есть i=3. 3 бита.

#3. 64 символа. (смотреть задачу 1). 2 в 6 степени.

#4. Определим, сколько бит занимает все сообщение.

1/512 Мбайт = 1024/512 = 2 Кбайт. (1 Мбайт = 1024 Кбайт);

2 Кбайт = 2 * 1024 = 2048 байт (1 Кбайт = 1024 байт);

2048 байт = 2048 * 8 = 16384 бит.

Текст состоит из 2048 символов ⇒ занимает 16384 бит ⇒ один символ занимает 16384 : 2048 = 8 бит = 1 байт.

Если для хранения 1 символа алфавита используют 8 бит, согласно формуле (смотреть выше) 2 ^ 8 = 256 символов.

ответ: размер алфавита - 256 символов.

4,8(100 оценок)
Ответ:
ZEWER
ZEWER
04.07.2021
Const
  n = 30;

var
  r: array[1..n] of real;
  i: integer;
  s1,s2:real;

begin
  Randomize;
  Writeln('Значения радиусов');
  s1 := 0; s2:=0;
  for i := 1 to n do
  begin
    r[i] := 60*Random+20; { диапазон [20;80] }
    Write(r[i]:0:3,' ');
    if (i mod 2)=0 then s2:=s2+Pi*sqr(r[i])
    else s1:=s1+Pi*sqr(r[i])
  end;
  Writeln;
  Writeln('Сумма площадей нечетных окружностей равна ',s1:0:3);
  Writeln('Сумма площадей четных окружностей равна ',s2:0:3);
  if s1>s2 then Writeln('Сумма площадей нечетных окружностей больше.')
  else Writeln('Сумма площадей четных окружностей больше.')
end.

Тестовое решение:
Значения радиусов
56.879 33.997 66.165 54.564 63.760 32.462 56.152 36.012 45.476 58.788 22.239 21.141 76.301 78.056 41.087 46.567 57.791 21.957 77.978 76.025 38.028 69.101 27.912 64.033 40.992 73.433 61.029 24.535 56.062 23.439
Сумма площадей нечетных окружностей равна 141677.771
Сумма площадей четных окружностей равна 126696.264
Сумма площадей нечетных окружностей больше.
4,6(43 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ