Var
s, x: integer;
begin
s:=0;
repeat
readln(x);
s:=s+x;
until x = 0;
writeln(s);
end.
Var
a,b:real;
i:integer;
begin
i:=0;
readln(a,b);
while b<a do
begin
a:=a*1.15;
a:=a-b;
i:=i+1;
end;
<span>writeln('План можно выдерживать', i, ' лет' )</span>;
end.
котак и бас седели на трубе бас упал котак пропол и прошал ам !кто отстался на трубе!
32 = 2^5 значит один символ занимает 5 бит
3*25*80=6000 символов в книге
6000*5 = 30000 бит = 3750 байт информации в книге