<h2>1) Шифр Цезаря.</h2>
<h2>2) Шифр Атбаш</h2>
<h2>3) Шифр Виженера.</h2>
<h2>4) Шифр Хилла</h2>
<h3 /><h3>Вот держи.. Удачи в учёбе!</h3>
Задан массив A из 13 элементов(2,13,-21,32,7,11,9,-5,4,-15,21.8.3)определить сумму всех элементов,которые больше числа 10 и найт
НИКОЛАЙ323
DATA 2,13,-21,32,7,11,9,-5,4,-15,21,8,3
DIM a(1 TO 13) AS INTEGER
s = 0: k = 0
FOR i = 1 TO 13
READ a(i)
IF a(i) > 10 THEN s = s + a(i)
IF a(i) > 0 THEN k = k + 1
NEXT i
CLS
PRINT "S="; s; ", kol-vo polozhitelnykh="; k
<u><em>Результат</em></u>
S= 77 , kol-vo polozhitelnykh= 10
a) значение - случайное число из [-50;50]
б) значение равно индексу, например a[6]=6
в) значение - нечетное число
ну или както так
Можно решить с помощью программы на Паскале.
Работа проверена в версии PascalABC.NET 3.4.2.1837 (12.10.2018)
var
a, x: BigInteger;
n: Integer;
begin
x := ReadInteger('введите основание степени');
a := x ** 10;
n := 0;
repeat
if (a mod 2) = 1 then
n += 1;
a := a div 2;
until a = 0;
writeln('количество единиц в двоичной записи = ', n);
end.
Результаты:
1) для 124^10 -содержится 24 единицы
2) для 252^10 -содержится 27 единиц
3) для 215^10 -содержится 33 единицы
Формула указана не ясно в задании, я указал в ответе так как оно более менее смотрится понятно, но вам стоит уточнить. Что до алгоритма, то он выглядит вот таким вот образом. Внимание, первый член данного ряда считается за 0, вам стоит так же уточнить у преподавателя, в задании этого явно не указано, но зачастую такое значение традиционно.
Ошибки в вашем алгоритме:
1. У вас условие k < 0, это значит, что если будет введено k = 0, то алгоритм отработает, но 0 членов быть не может, это не имеет смысла.
2. Цикл у вас выводит значение n-го члена после каждой итерации, а не единожды.
Спасибо за отметку "Лучший ответ" и нажатую кнопочку "спасибо" (:
