ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Матем ИЗ "...\Отделы\Числа\";
ПЕР
a: РЯД 10 ИЗ ЦЕЛ;
сч: ЦЕЛ;
произведение: ЦЕЛ;
УКАЗ
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
a[сч] := УЗК(ВШИРЦЕЛ(Матем.случ() * 9)) + 1
КОН;
произведение := 1;
ОТ сч := 0 ДО РАЗМЕР(a) - 1 ВЫП
ЕСЛИ НЕ ЧЕТ(a[сч]) ТО
произведение := произведение * a[сч]
КОН
КОН
КОН Задание.
Файл размером 20 кбайт передается через некоторое соединение со скоростью 1024 бит в секунду то есть за 20 секунд. Значит со скоростью 2048 бит он передастся в 2 раза быстрее то есть время передачи 10 секунд
<span>var s,s1:string; n,i:integer;
begin
writeln('Введите слово длиной 3n:');
readln(s);
n:=length(s) div 3;
delete(s,2*n+1,n);
s1:='';
for i:=1 to 2*n do s1:=s[i]+s1;
writeln(s1);
end<span>.
Пример:
</span><span>Введите слово длиной 3n:
</span><span>programma
</span>argorp</span>
#include <windows.h>
#include <conio.h>
#include <math.h>
#include<iostream>
using namespace std;
int main()
{
double m=0;
for (int n = 1;n < 1000;n++) {
m += pow(n, 2) - 2 * n*(n+1) + pow(n+1, 2);
}
cout << m;
_getche();
return 0;
}
Ответ: 3
решение:
рассмотрим столбец б. Подставим и посчитаем числа.
получается соответственно: 12 (2*6); 6(5+1); 4(5-1). Из этого следует, что половина этой диаграммы будет равна 12 (т.к. самое большое число.) Из 12 вычетаем 6 и 4. 12-6-4=2
чтобы получилось 2, число 6 из таблицы нужно разделить на 3. Следовательно, ответ 3.