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

Как создавать програмки на компьютере

👇
Ответ:
lobster32
lobster32
26.04.2023
Определись, для чего это тебе надо, как определишься, напиши в личку ко мне
4,5(39 оценок)
Ответ:
maximstrekalovs
maximstrekalovs
26.04.2023
Через среды программирования.
4,5(27 оценок)
Открыть все ответы
Ответ:

1. "Молекулы состоят из атомов!" - 27 символов.

27*16 = 432 бита = 54 байта.

2. "Я к вам пишу- чего же боле? Что я могу еще сказать?" - 51 символ.

51*16 = 816 бит = 102 байта.

3. "Любишь кататься- люби и саночки возить!" - 39 символов.

39*32 = 1248 бит = 156 байт.

4. "Семь раз отмерь, один раз отрежь!" - 33 символа.

33*5 = 165 байт (1320 бит).

В общем виде: пусть n - количество символов в тексте, i - количество бит на символ, тогда объём V будет равен V = ni.

Также следует помнить, что 1 байт - это 8 бит.

Объяснение:

4,8(39 оценок)
Ответ:
Марс2014
Марс2014
26.04.2023
Задача, аналогичная той, которую публиковали вчера. Только цикл repeat заменяем на while.

Сначала немного математики.
\displaystyle a_n= \frac{n!}{(2n)!}=\frac{\prod_{i=1}^ni}{\prod_{i=1}^{2n}i}=\frac{\prod_{i=1}^ni}{\prod_{i=1}^{n}i\times\prod_{i=n+1}^{2n}i}=\frac{1}{\prod_{i=n+1}^{2n}i}; \quad n\in\mathbb N
О модуле тут смысла нет говорить, поскольку все an - суть положительные величины на интервале (0;1).

uses Crt;

function ai(n:integer):real;
var
  i:integer;
  p:real;
begin
  p:=1;
  for i:=n+1 to 2*n do p:=p*i;
  ai:=1/p
end;

var
  i:integer;
  eps,s,an:real;
begin
  ClrScr;
  Write('eps='); Read(eps);
  s:=0; i:=1; an:=eps+1;
  while an>=eps do begin
     an:=ai(i);
     if an>=eps then begin s:=s+an; Inc(i) end
  end;
  Writeln('s=',s);
  ReadKey
end.

Тестовые решения:
eps=0.07
s= 5.8333333333E-01

eps=0.000001
s= 5.9229647667E-01

eps=1e-8
s= 5.9229653448E-01

Для контроля результата можно отметить, что сумма первых 1000 членов ряда равна приблизительно 5.922965365Е-01

Если раздражает наличие функции, можно и без нее:
uses Crt;

var
  i,j:integer;
  eps,s,an,p:real;
begin
  ClrScr;
  Write('eps='); Read(eps);
  s:=0; i:=1; an:=eps+1;
  while an>=eps do begin
    p:=1;
    for j:=i+1 to 2*i do p:=p*j;
    an:=1/p;
    if an>=eps then begin s:=s+an; Inc(i) end
  end;
  Writeln('s=',s);
  ReadKey
end.
4,4(84 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ