Var a,b : real; begin writeln('Введите свою температуру'); readln(a); if (a>36.6) then writeln('[вы больны сходите к врачу ',a,']'); if (a<36) then writeln('[вы больны сходите к врачу ',a,']') else writeln('все нармально '); end.
В глубокой древности - на стенах пещер, на глиняных табличках, восковых дощечках, на скрижалях, потом на папирусе, бересте, пергаменте и т. д. Потом изобрели бумагу. В старину писали стилом, палочками, гусиными перьями, углями. Были ещё какие-то средства. В девятнадцатом веке изобрели пишущие машинки, фотоаппараты - ведь запечатление изображений на фотоплёнках и фотопластинках, это тоже запись информации. Также в 19 столетии появились граммофоны, патефоны, механические пианино, шарманки (музыка - тоже информация) . А уже ближе к нашим временам появились магнтитофоны, видеомагнтитофоны, потом лазерные устройства для записи на диски. Наконец, мобильники, фотоаппараты, компьютеры - это тоже накопители информации, которая хранится на дисках, флэшках, картах памяти и т. д. В общем, сам поищи в интернете, напиши разные варианты для поиска, например, "древние записи информации", "старинные носители информации", "папирус, глина, берестяные грамоты, письмена", "Александрийская библиотека" и т. д.
var n4 := ReadString('a_4 = '); if n4.Length mod 2 = 1 then n4 := '0' + n4;
var n16 := ''; for var i := 0 to n4.Length div 2 - 1 do if Replace4to16.ContainsKey(n4.Substring(2 * i, 2)) then n16 += Replace4to16[n4.Substring(2 * i, 2)] else writeln('Неверные знаки "', n4.Substring(2 * i, 2), '" в числе');
a,b : real;
begin
writeln('Введите свою температуру');
readln(a);
if (a>36.6) then
writeln('[вы больны сходите к врачу ',a,']');
if (a<36) then
writeln('[вы больны сходите к врачу ',a,']')
else
writeln('все нармально ');
end.