1)
var
s : real;
i, n : integer;
begin
s := 0;
read (n);
for i := 1 to n do s := s + 1 / i;
writeln (s);
end.
2)
var
a, i : integer;
begin
a := 1;
for i := 1 to 8 do
begin
a := a * 2;
writeln ('Через ', i * 3, 'часов будет ', a, ' амеб');
end;
end.
3)
var
n, i : integer;
x, s : real;
begin
s := 0;
read (n, x);
for i := 1 to n do
s := s + sin (i * x);
writeln (s);
end.
4)
var
n, a, r, i : integer;
begin
r := 1;
read (a, n);
for i := 1 to n do r := r * a;
writeln (r);
end.
Объяснение:
Program Stroka
uses Сrt;
var s,temp:string;
i,c,k,d:integer;
begin
clrscr;
write('Введите строку:');
readln(s);
write('Введите длину:');
readln(k);
temp:=''; c:=0;
d:=length(s);
for i:=1 to d do
begin
if s[i]<>' ' then temp:=temp+s[i];
if ((s[i]=' ') or (i=d)) and (temp<>'') then
begin
if Length(temp)=k then c:=c+1;
temp:='';
end;
end;
writeln('Количество слов заданной длины: ',c);
readkey;
end.