Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Думаю помагла тебя
Объяснение:
лайк
используем рекурентную формулу, чтобы программу
а[n+1]=1/4
a[n]=1/2
t=(1/4)/(1/2)=1/2
a[n+1]=a[n]*1/2
program;
var n: integer; abs,s,a: real;
begin
a: =1;
eps: =1;
s: =1;
repeat
a: =a*1/2;
abs: =abs(a);
s: =s+a;
until abs< 0.001;
writeln(s);
end;
program pr; vars,n: string; c: char; i: integer; beginwriteln('введите имя и фамилию в одной строке'); readln (s); i: =1; while s[i]< > ' ' do i: =i+1; n: =copy(s,1,i-1); writeln(n); readln; end.
Популярные вопросы