#include <iostream>
#include <windows.h>
#include <conio.h>
#include <ctime>
int main()
{
srand(time(NULL));
const int n = 20;
double r = 0;
int a[n];
system("cls");
for (int i = 0; i < n; i++)
{
a[i] = rand() % 50;
std::cout << a[i] << " ";
r += 1. / a[i];
}
std::cout << std::endl;
r = 1. / r;
std::cout << "R: " << r << std::endl;
getch();
return 0;
}
1 30 435 4060 27405 142506 593775 2035800 5852925 14307150 30045015 54627300 86493225 119759850 145422675 155117520 145422675 119759850 86493225 54627300 30045015 14307150 5852925 2035800 593775 142506 27405 4060 435 30 1
Это 30-я строка треугольника Паскаля, расчитанная онлайн на сайтеhttp://calcsbox.com/post/treugolnik-paskala.html. Жирным шрифтом с подчёркиванием выделены все нечётные цифры. Всего их 16.
ответ: 16.
P.S. На 32-ой строчке ответ 2; на 31-ой строчке ответ 32.
begin
writeln('Введите A');
read(a);
writeln('Введите B');
read(b);
writeln(' ');
for i:=a to b do begin
if ((i mod 3=0)or(i mod 10=3)) then writeln(i)
else n:=n+1; e
nd;
s:=s+i;
writeln(' ');
writeln('Сумма чисел=',s);
writeln('Чисел не подходят:',n)
end.