Var i,k,s:integer;
begin
while k<15 do
begin
i:=i+1;
if i mod 5=3 then
begin
if k<14 then write (i,'^2 + ')
else write (i,'^2 = ');
s:=s+sqr(i);
k:=k+1;
end;
end;
writeln (s);
end.
7000*28=196000(бит) - Это мы нашли размер файла
196000÷6000=32.66(сек) - Это мы нашли время, через которое скачается файл у другого провайдера.
ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;
ПЕР
массив: ДОСТУП К РЯД ИЗ ЦЕЛ;
N, сч, сумма: ЦЕЛ;
УКАЗ
Вывод.Цепь("Введите N: ");
N := Приём.Число();
СОЗДАТЬ(массив, N);
Вывод.Цепь(".^Введите элементы массива:^");
сумма := 0;
ОТ сч := 0 ДО N - 1 ВЫП
массив[сч] := Приём.Число();
Вывод.Цепь(" ");
ЕСЛИ массив[сч] > сч ТО
УВЕЛИЧИТЬ(сумма, массив[сч])
КОН
КОН;
Вывод.ЧЦел("^Сумма особых элементов: %d.", сумма, 0, 0, 0)
КОН Задание.
1-2 - Да
2-1 - Нет
3-3- Да
Очень лёгкий вопрос как по мне.
1) Перевести в троичную симметричную систему числа:
а) 17; б) -23; в) 41; г) -31.
2) Перевести в десятичную:
а) +-0---+0; б) --0-++0-; в) +00-+++; г) +---000+.