ответ:
var
str: string;
i, count: integer;
begin
write('your string: ');
readln(str);
i : = length(str);
if i > 0 then begin
count : = 1;
while i > 0 do begin
if str[i] = ' ' then
count : = count + 1;
i : = i - 1;
end;
end
else
count : = 0;
writeln('number of words: ', count);
readln;
end.
объяснение:
var
arr: array of real;
sum: real;
size, n, i: integer;
begin
sum := 0;
writeln('Введите размерность массива: ');
readln(size);
arr := new real[size];
for i := 0 to size - 1 do
arr[i] := 1 / power(2, i) + 1 / power(3, i);
writeln('До какого элемента нужно считать сумму?');
readln(n);
for i := 0 to n - 1 do
sum := sum + arr[i];
writeln('Сумма первых n элементов = ', sum);
end.