C++
<span>#include <iostream>
#include <algorithm>
#include <iterator>
#include <random>
#include <vector>
std::mt19937 gen {std::random_device()()};
std::uniform_int_distribution<int> uid(1, 10);
int main()
{
int N = 0;
std::cin >> N;
std::vector<unsigned> arr(N);
for (auto &i : arr) i = uid(gen);
std::reverse(std::begin(arr), std::end(arr));
std::copy(std::begin(arr), std::end(arr),
std::ostream_iterator<int>(std::cout, " "));
system("pause");
<span>}</span></span>
program raf105;
var abc,a,b,c:integer;
begin
write('Введите трёхзначное число: ');
readln(abc);
a:= abc div 100;
c:= abc mod 10;
b:= (a+c) mod 10;
abc:= a*100 + b*10 + c;
writeln('Вывод: ',abc);
end.
<em><u>Язык PascalABC</u></em>
Var a,k:integer;
begin
a:=-1;
k:=-1;
while a<>0 do begin
read(a);
if a mod 7 = 0 then k+=1;
end;
writeln(k);
<span>end.</span>
1) переведем "37" в двоичную систему счисления, путем деления числа на два.
2) переведем дробную часть, умножая на два.
Решение смотри во вложении.
Var
a, b, n: integer;
sr: real;
begin
sr := 0;
n := 0;
read(a, b);
if(a > b) then a := b;
while a > 0 do
begin
if((a mod 10) mod 2 = 0) then begin
sr := sr + a mod 10;
n := n + 1;
end;
a := a div 10;
end;
write(sr / n);
end.