#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;
}
program raf105;
var a,b,c:integer;
begin
write('Введите 3 числа: ');
readln(a,b,c);
if (a<b) and (a<c)
then writeln('Произведение 2 наибольших чисел: ',b*c);
if (b<a) and (b<c)
then writeln('Произведение 2 наибольших чисел: ',a*c);
if (c<b) and (c<a)
then writeln('Произведение 2 наибольших чисел: ',b*a);
end.
2.а)program raf105;
var a,i,b:integer;
begin
write('Введите число: ');
readln(a);
for i:=1 to a do
if ((a mod i)=0) and ((i mod 2)<>0)
then b:= b+i;
writeln('Сумма нечётных делителей введённого числа: ',b);
end.
б)program raf105;
var a,a2,i,j,b:integer;
begin
write('Введите меньшее число: ');
readln(a);
write('Введите большее число: ');
readln(a2);
for j:=a to a2 do
begin
for i:=1 to j do
if ((j mod i)=0) and ((i mod 2)<>0)
then b:= b+i;
writeln('Сумма нечётных делителей числа ',j,' равна: ',b);
b:= 0;
end;
end.
Язык программирования PascalABC
Объяснение:
1. сначала иксу придаётся значение 17
2. игрик будет равен ЦЕЛОЙ части от деления икса на 5. То есть если мы делим 17 на 5, то получаем 3 целых и дробную часть
3. z равен ОСТАТКУ от деления на 2. То есть если мы 3 делим на 2, то получаем 1 и в остатке 1.
На экран выведется 1
Как вычислить остаток?
Из числа вычитаем целую часть деления и получаем остаток
5:2= 3 целая
5-3 = 2 остаток