Var a,k:integer;beginwriteln ('На сколько яиц больше курочка снесла во второй раз, k = ');readln(k);a:=1+(1+k)+(1+k+k)+(1+k+k+k)+(1+k+k+k+k);writeln('Дед и баба могли сделать яичницу из ',a,' яиц');end.
Вычислить значение выражения 328 + A416 = ? 2.
см ворд
1)
var
a, b, i: longint;
begin
read(a, b);
for i := a to b do
writeln(i:10, ' бит = ', i / 8 / 1024:10:5, ' Кб');
end.
3)
var
a, b, s: real;
i:integer;
begin
read(a, b);
for i := 1 to 10 do
begin
s := s + b;
b := b * 1.03;
end;
writeln(s - 10 * a);
end.
Решение задачи представлено во вложенном файле.
В 1832г - <em>изобрели электрический телеграф</em>
В 1837г - <em>создан электромагнитный телеграфный аппарат</em>
В 1876г - <em>изобретен телефон</em>
В 1895г - <em>создали радио</em>
20 век - <em>телевидение, спутниковая связь</em>