Прошу заметить, что программа работает не только с трёхзначными числами. А работает и с тысячами, и с миллионами
program Znanija;
var n,a,i:integer;
begin
readln(n);
a:=n;
while(n > 0) do
begin;
i := i + 10 + n mod 10;
n := n div 10;
end;
if i mod 2 = 0 then
writeln('Сумма цифр числа ', a, ' - чётное число')
else
writeln('Сумма цифр числа ', a, ' - нечётное число');
end.
Uses crt;var R:real;beginwriteln('Введите радиус круга в основании: ');readln(R);writeln('Площадь основания цилиндра= ',2*pi*sqr(R));end.
Тут надо было что-то написать, т.к. пустой ответ система не принимает)
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
int number, coun = 0, d, first, last;
double pwr;
setlocale(LC_ALL, "Russian");
cout << "Поменять первую и последнюю цифры числа>" << endl;
cout << "Введите число: ";
cin >> number;
d = number;
while (d > 0)
{
d /= 10;
coun++;
cout << "count = " << coun << endl;
}
pwr = pow(10, coun-1);
//к примеру число равно 321
//first = 3
//last = 1
//number = 32
//number = 323
//number = 23
//number = 123
first = number / (int)pwr;
last = number % 10;
number /= 10;
number = number * 10 + first;
number %= int(pwr);
number += last * int(pwr);
cout << "Result: " << number << endl;
return 0;
}
1) 2^4=16 этажей
2) N=(кол-во дней в месяце)*(кол-во месяцев)*(кол-во часов в сутках)= 31*12*24=8928; N=2^I =8928; I =log2 8928 ≈13,124 бит - кол-во инф-ции
3) 2^4<25<2^5 ---> 5 бит для кодирования 1-ого символа; 5*8=40 бит для кодирования сообщения из 8 символов.