- Для конкретного человека
"Коля, если ты еще жив, аккуратно съездить на обочину и подтяни болты на колесе, мы забыли"
- Для неконкретного человека
"Граждане и гражданки Советского Союза, говорит Москва, работают все радиостанции Советского Союза"
Var n,i,s:integer;
Begin
Readln(n);
For i:=1 to n do
If n mod i =0 then
s:=s+i;
If s = n then
Write('верно')
Else
Write('не верно');
Readln
End.
запишем условие задачи: К=800, N=128, I=?
решение: вычислим вес одного символа используемого алфавита
128=2^i, 2^7=2^i, i=7 бит
подсчитаем количество информации
I=K*i=800*7=5600 бит=700 байт=0,68 Кб