Const eps=0.00001;
var b,c:integer; a,s:real;
begin
s:=0;
b:=1; c:=1;
a:=1/b+1/c;
while abs(a)>=eps do
begin
s:=s+a;
b:=2*b; c:=c*3;
a:=1/b+1/c;
end;
writeln('s = ',s:8:5);
end.
Результат:
s = 3.49998
Var n,pr,a:integer;
begin
readln (n);
pr:=1;
repeat
read(a);
if (a>=-2) and (a<=2) then pr:=pr*a;
n:=n-1;
until n=0;
write (pr);
end.
- var
- a, b, c: real;
- begin
- Writeln('Введите число a: ');
- Readln(a);
- b := 5;
- c := a / b;
- Writeln(c);
- end.
Исправлены как синтаксические ошибки, так и орфографические, а также поправлен стиль кода (вместо End end, вместо Var var и так далее), а также изменён тип integer к real из-за особенностей языка Pascal.
Var n,sum,d,ind,first:integer;
begin
Write('n');
Readln(n);
d:=1;
ind:=0;
sum:=0;
if n div d=0 then
begin
ind:=1;
sum:=n;
end
else
begin
while n div d<>0 do
begin
inc(ind);
sum:=sum+(n div d) mod 10;
d:=d*10;
end;
end;
Writeln('suma',Sum);
Writeln('kolvo',ind);
first:=(n div round(d/10)) mod 10;
writeln('first',first);
readln;
end.
Для записи одного из 13 значений требуется log(2)13 ≈ 4 разряда, для записи одного из 99 значений - log(2)99 ≈ 7 разрядов, т.е. в 7/4 - 1,75 раз больше.