var X : Word;
begin
Write('Введите натуральное число (до 65 535) : '); ReadLn(X);
WriteLn(X, ' - ', Inverse(X), ' = ', X-Inverse(X));
end.
… где функция Inverse — пара строчек, но «интеллектуальная собственность» , а значит не бесплатно ;-)
Также можно еще один вариант решения:uses crt;
var x, y, first, second, third, raz:integer;
Begin
ClrScr;
WriteLn('Введите трехзначное число');
Readln(x);
first:=x div 100;
second:=(x div 10 mod 10)*10;
third:=(x mod 10)*100;
y:=third+second+first;
raz:=abs(x-y);
WriteLn('Разность чисел ',x,' и ',y,' равна ',raz);
Readln();
End.
#include <iostream>
using std::cout;
using std::endl;
#include <cstdlib>
using std::rand;
using std::srand;
#include <ctime>
using std::time;
int main()
{
int bc[30];
int sumEven = 0, sumEvenIndex = 0;
srand(time(0));
for(int i = 0; i < 30; i++)
{
bc[i] = rand() % 51;
if(bc[i] % 2 == 0)
{
sumEven += bc[i];
}
if(i % 2 == 0)
{
sumEvenIndex += bc[i];
}
cout << bc[i] << ' ';
}
cout << endl << endl;
int temp, biggest;
for(int i = 0; i < 30 - 1; i++)
{
biggest = i;
for(int j = i + 1; j < 30; j++)
{
if(bc[biggest] < bc[j])
{
biggest = j;
}
}
temp = bc[i];
bc[i] = bc[biggest];
bc[biggest] = temp;
}
for(int i = 0; i < 30; i++)
{
cout << bc[i] << ' ';
}
cout << "\nThe sum of elements with even indices = " << sumEvenIndex
<< "\nThe sum of even elements = " << sumEven << endl;
return 0;
}
Объяснение:
Ученые во многих странах говорят о том, что беспроводные наушники могут вызывать рак мозга. Bluetooth — это такой же источник опасного электромагнитного излучения, как и микроволновка. Электромагнитные волны рядом с мозгом вредны, указал Тимофеев.