1,2,3,4,5,6,7
Всегда пожалуйста.
Var i,n: integer;
s,t: real;
begin
write('n = '); readln(n);
s:=1; t:=1; i:=1;
repeat
t:=t/i;
s:=s+t;
i:=i+1;
until i>n;
writeln('сумма ряда: ',s:7:5);
<span>end.
</span>
Var
S:string;
i,k:integer;
Begin
Write('Введите строку: ');ReadLn(S);
k:=0;
i:=1;
Repeat
if (S[i] = ' ')or(S[i] = ',')or(S[i] = ':')or(S[i] = ';')or(S[i] = '?')or(S[i] = '!') then
if not((S[i+1] = ' ')or(S[i+1] = ',')or(S[i+1] = ':')or(S[i+1] = ';')or(S[i+1] = '?')or(S[i+1] = '!')) then
k:=k+1;
i:=i+1
Until S[i] = '.';
WriteLn('Количество слов: ',k+1);
End.
Program z1;
Var k:integer;
Begin
Readln(k);
Writeln('1');
End.