80 бит - 10 бит = 70 бит
1024 байт + 10 байт = 1034 байт
1024 байт - 128 байт = 896 байт
1)var
a,b,h:real;
begin
readln(a);
readln(b);
readln(h);
while a<b do
begin
writeln(a,' ',2*cos(a)-1:8);
a+=h;
end
<span> end.
2)</span>var
eps,sum,current,n:real;
begin
readln(eps);
sum:=0;
n:=0;
repeat
current:=2*n-1/power(2,n);
n+=1;
sum+=current;
until current>eps;
writeln(sum);
<span>end.</span>
Ответ - всемирная компьютерная сеть - Интернет
program cikl;
var i:integer;
begin
for i:=20 to 99 do
if i mod 10<>7 then write(i:3);
end.