Еж-ежик......................
Var
a:integer;
begin
readln(a);
If (a<10000) and (a>=0) then
If (a>999) then
If ((a div 1000)=(a mod 10)) and ((a div 10 mod 10)=(a div 100 mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>99) and (a<1000) then
If ((a div 100)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>9) and (a<100) then
If ((a div 10)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
writeln('1')
else
writeln('Неправльное число');
end.
Большое немного решение, может можно и поменьше, но так точно правильно
Папирус(Догадайтесь,о каком носители информации идёт речь.)
а) 7 Кбайт = 7168 байт = 57344 бит
б) 1,5 Кбайт = 1536 байт = 12288 бит
в) (тут будет каша из цифр после запятой - 0.030517578125) Кбайт = 31,25 байт = 250 бит
г) 1,5 Гбайт = 1536 Мбайт = 1572864 Кбайт = 1610612736 байт
'В озеро Байкал впадает 336 рек' - 30 символов, 30*8 = 240 бит = 15 байт
250 страниц * 30 строк * 50 символов * 8 бит = 3000000 бит = примерно 366 Кбайт
Получается у нас четыре секунды для передачи. 1 секунда = 1 сигнал. Значит за 4 секунды устройство передаст 4 сигнала. Таким образом сообщение - это четыре сигнала из трехбуквенного алфавита. Формула : 3 в степени 4, то есть 3*3*3*3 = 81. Итого 81 различное сообщение может передать устройство за 4 секунды