#include <iostream>
using namespace std;
int main() {
int n=20,k=0;
int a[n];
srand(time(NULL));
cout<<"array:\n";
for (int i=0; i<n; i++)
{
a[i]=rand() % 91+10;
cout<<a[i]<<" ";
}
cout<<endl;
for (int i=1; i<n; i++)
if ((a[i-1]+a[i])%3==0) k++;
cout << "k = " << k;
return 0;
}
Пример:
<span>array:
53 94 31 70 89 30 32 64 81 27 36 70 57 17 10 67 83 12 55 28
k = 7</span>
Var
a, b, c : integer;
begin
write("Введите 1 целое число: ");
readln(a);
write("Введите 2 целое число: ");
readln(b);
c = a + b;
writeln("Сумма равна: ", c);
end.
№4.1
38*64*15=36480
№4.2
в самом сообщении нужно посчитать кол-во всех букв, пробелов, знаков препинания , у меня получилось 41
№4.3
В данной задаче применим формулу Шеннона
Вероятность того,что вытащили красный карандаш= 1/32
х=㏒2(1:(1:32))= 5
Ответ :5
№4.4
1,44*2/3= 0,96 МБ
1КБ=1024 байта
1МБ=1024 КБ
0,96 МБ= 0,96*1024*1024=1006632,96 байт
№4.5
пуст точка-0
тире-1
я не знаю азбуку Морзе...
Всё это? и всё ны с начало видно
Блок схема во вложении.
Только сразу после элемента "начало" еще нужен блок прямоугольный с N:=20