Тут через оператор case нужно указывать вручную, ну я пока что легких путей не вижу. Легкая программа, но замудренная..
Пример:
case a of
01.02.98 : writeln ('1 февраля тысяча девятьсот девяносто восьмой год');
02.02.98 : writeln (2 февраля тысяча девятьсот девяносто восьмой год');
Тут дата : writeln ('Тут что выводить');
итд
end;
2^5 = 32 < 59 <= 64 = 2^6, т.е. необходимо 6 бит для кодирования каждой комбинации
Тогда инфообъём = 6*80 бит = 6*10 байт = 60 байт
var s: string;
i: integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]='o' then s[i]:='a';
write(s);
end.
14:
CLS
PRINT "Otrezok [a,b]:"
INPUT " a = ", a
INPUT " b = ", b
INPUT "Shag = ", h
FOR x = a TO b STEP h
IF (-1 <= x) AND (x <= 1) THEN
PRINT "y("; x; ") = "; 1 / x + SIN(x * x)
ELSE
PRINT "y("; x; ") = "; x + 1 / (x * x)
END IF
NEXT x
END
15:
CLS
PRINT "Otrezok [a,b]:"
INPUT " a = ", a
INPUT " b = ", b
INPUT "Shag = ", h
FOR x = a TO b STEP h
IF (-1 <= x) AND (x <= 1) THEN
PRINT "y("; x; ") = "; 1 / (x * x) + 1
ELSE
PRINT "y("; x; ") = "; x - 5
END IF
NEXT x
END
<span>Виды информации
Информация может существовать в различных видах:
текст, рисунки, чертежи, фотографии;световые или звуковые сигналы;радиоволны;электрические и нервные импульсы;магнитные записи;жесты и мимика;запахи и вкусовые ощущения;хромосомы, через которые передаются по наследству признаки и свойства организмов, и т. д.
</span>