1 A 3 4 C ,2 B 9 =
4 3 2 1 0 -1 -2 -3 <-----позиции цифр в числе
=1*16^4 +10*16^3+3*16^2+4*16 +12 + 2*16^-1+11*16^-2+9*16^-3=
=107340+ 697/4096=107340,170166
Program test;
var number: integer;
begin
write('Enter the number: ');
readln(number);
number:=abs(number)-2;
writeln(number);
readln;
end.
1) Информационные процессы в природе - обмен информацией в случае опасности между животными (например, дельфинами); передача информации в генетическом коде - передача наследственных признаков.
2) В обществе - библиотека - хранение информации, накопленной предыдущими поколениями; передача информации в новостях; обмен информацией - при общении друзей.
3) В технике - передача информации по сетям (Интернет), хранение информации на жестком диске компьютера (винчестере).
#include <iostream>
using namespace std;
int main()
{
int i, n;
cout << "n="; cin >> n;
for (i = 10; i <= 99;i++)
if (pow(i % 10, 3) + pow(i / 10, 3) == n) cout << "Vashe chislo= " << i << endl;
return 0;
}
PascalABC.NET
-----------------------------
var
a: array[1..10000] of integer;
kz,maxp,n,i,j: integer;
begin
i:=0;
maxp:=integer.MinValue;
writeln ('Готов к приему чисел');
repeat
i:=i+1;
readln (a[i]);
until a[i]=0;
n:=i-1;
readln (kz);
for i:=1 to n-1 do
for j:=2 to n do
if maxp<(a[i]*a[j]) then maxp:=(a[i]*a[j]);
writeln ('Получено ',n,' чисел');
writeln;
writeln ('Полученное контрольное значение: ',kz);
writeln;
writeln ('Вычисленное контрольное значение: ',maxp);
writeln;
if kz=maxp
then writeln ('Контроль пройден')
else writeln ('Контроль не пройден');
end.
--------------------------------------
Результаты:
1)
Готов к приему чисел
1 2 3 4 5 0 20
Получено 5 чисел
Полученное контрольное значение: 20
Вычисленное контрольное значение: 20
Контроль пройден
2)
Готов к приему чисел
1 2 3 4 5 6 0 20
Получено 6 чисел
Полученное контрольное значение: 20
Вычисленное контрольное значение: 30
Контроль не пройден
