В 1832г - <em>изобрели электрический телеграф</em>
В 1837г - <em>создан электромагнитный телеграфный аппарат</em>
В 1876г - <em>изобретен телефон</em>
В 1895г - <em>создали радио</em>
20 век - <em>телевидение, спутниковая связь</em>
Var h,b,k,p,d:real;
begin
write('Введите В, К, П:');
readln(b,k,p);
writeln(' H','Д':8);
h:=2;
repeat
d:=100*h/(100-b)/(100-k)/p;
writeln(h:1:1,d:10:3);
h:=h+0.1
until h>4.0001 {Вообще-то здесь ровно 4 надо написать, но у меня тогда значение 4 не просчитывается, хотя должно бы}
<span>end.</span>
1) Вычисляет сумму цифр любого 4-значного числа
2) 0 2 4 9 12 15