Сообщение об изобретении 19-20 века

Изобретения 19-20 века весьма многочисленны. самыми значительными можно назвать фотографию, динамит, анилиновые краски для тканей. кроме того, были открыты более дешевые методы изготовления бумаги, спирта, изобретены новые медикаменты. технические изобретения 19 века имели большое значение в развитии общества. так, при телеграфа люди смогли передавать сообщения в течение нескольких секунд с одного конца мира на другой. изобретен телеграф в 1850 году. немного позже начали появляться телеграфные линии. грэхем белл изобрел телефон. сегодня люди не представляют себе жизнь без этого открытия.

Const n = 30; var days: array[1..n] of boolean; b,a,i: integer; begin b: =random(15,100); a: =random(60,100); writeln('высота дерева: ',b/10,' м'); writeln('высота подъёма улитки: ',a,' см'); write('погода: '); for i: = 1 to n do       begin       if random(2) = 1 then days[i]: =true       else days[i]: =false;       if days[i] then write('солнечно ')       else write('пасмурно ')       end; writeln; for i: = 1 to n do       begin       if days[i] then             begin             if a+3< =b then a: =a+3             else a: =b;             end       else             begin             if a-2> =0 then a: =a-2             else a: =0;             end       end; write('высота поъёма улитки: ',a/10,' м') end.

Procedure tform1.button1click(sender: tobject); var result, outgo, privilege, price1, price2, price3: real; begin privilege: =30; price1: =0.71; price2: =1.29; price3: =1.64; outgo: =strtofloat(edit1.text); if checkbox1.checked = true then outgo: =outgo-privilege; if outgo < 100 then result: =price1*outgo else if (outgo > = 100) and (outgo < 600) then result: =price2*outgo else result: =price3*outgo; messagedlg('сума для оплати за електроенергію: ' + #13#10 + floattostr(result) + ' грн.', mtinformation, [mbok], 0); end ;