Продолжите фразу: «предметом изучения информатики является…» а) энергия б) вещество в) информация наука об и связи в живом организме и машине – это … а) информатика б) кибернетика в) теория информации оперирование исходной информацией по определенным правилам с целью получения новой информации – это… а) обработка информации б) поиск информации в) кодирование информации совокупность символов, используемых в некотором языке для представления информации – это… а) алфавит б) мощность алфавита в) объем информации закодируй слова с кода цезаря. установите соответствие. 1) мачта а) лпщлб 2) волос в) нбшуб 3) кошка б) пугёу 4) букет г) вфлёу 5) ответ д) гпмпт ответы 1 2 3 4 5 в д а г б сколько бит и байт составляет сообщение объемом 1/1024 мбайта а) 8192 бит, 1024 байт б) 1024 бит, 8192 байт в) 8192 бит, 2048 байт компьютерный алфавит состоит из … а) 526 символов б) 128 символов в) 256 символов десятичное число 49 в двоичной системе счисления равно а) 1110011 б) 110001 в) 11 111 г) 10 0011 двоичное число 1100 1101 в десятичной системе счисления равно а) 1213 б) cd в) 205 г) 204 какие из перечисленных идентификаторов (имен переменных) записаны с ошибкой? (выберите наиболее полный ответ) a) first б) b12 в) 5five г) бета д) z312 е) a& b определите значение целочисленной переменной х после выполнения следующего фрагмента алгоритма: напишите программу подсчета количества положительных, отрицательных чисел и чисел, равных нулю. ввод чисел с клавиатуры. укажите тип синтаксической ошибки, имеющейся в данной программе на паскале: program a2; var b2,2c: real; begin read(b2); 2c: =b2b2 end. а) переменная описана дважды б) переменная не описана в) неверный идентификатор г) неверная константа дан оператор цикла на языке паскаль: a: =0; for i: =1 to 10 do begin a: =a+12; writeln(a+i,i); end; чему будет равно последнее значение i, выведенное на экран? а) 10 б) 120 в) 130 г) 1 перепишите следующую программу без ошибок и определите, какое значение будет иметь переменная p после выполнения программы, если с клавиатуры введено число 10? program ol; var a; b; h: integer begin writeln(‘введите число’ ); readln(a); if a=2 and a then begin b: =3; p=aa+bb end; else b: =5; p: =(a+b)(a+b); writeln(‘p=’p); end

👇

Открыть все ответы

Ответ:

gsst2004p08tcc

10.11.2021

Алгоритм решения

Рассмотрим первый тест. Мы знаем, что карточки пронумерованы от 1 до N, и что утеряна была ровно одна карточка. Пусть x равен сумме номеров всех карточек от 1 до N. Тогда y равен сумме номеров карточек, что даны нам во вводе. Значит, номер потерявшейся карточки - это x - y

x = 1 + 2 + 3 + 4 + 5 = 15

y = 3 + 5 + 1 + 4 = 13

ans = x - y = 15 - 13 = 2, ответ: 2.

Правда, тогда придется "угадать" тест, где N равно единице, поскольку мы используем do-while для ввода. Логично, что в наборе из одной карточки могла потеряться только эта единственная карточка.

Код

Дан в приложении.

На с++ с циклом do while для настольной игры используются карточки с номерами от 1 до n (n — натурал

4,5(80 оценок)

Ответ:

Kso57

10.11.2021

Задача, аналогичная той, которую публиковали вчера. Только цикл 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,8(79 оценок)

Это интересно:

Кулинария-и-гостеприимство

03.04.2023

Узнай, как сделать невероятно вкусный и загадочный мартини драгон...

Здоровье

20.07.2020

Симптомы СРК: как безопасно путешествовать?...

Образование-и-коммуникации

18.12.2022

Основные принципы подготовки к экзамену без зубрежки...

17.04.2022