Поскольку за последним словом в предложении пробела нет, то количество слов в предложении будет на единицу больше количества пробелов.
var
i,n:integer;
s:string;
begin
Writeln('Введите текст, разделяя слова ровно одним пробелом');
Readln(s);
n:=0;
for i:=1 to Length(s) do
if s[i]=' ' then Inc(n);
Writeln('Количество слов в тексте равно ',n+1)
end.
<em><u>Тестовое решение:</u></em>
Введите текст, разделяя слова ровно одним пробелом
Это текст, количество слов в котором нам нужно посчитать.
Количество слов в тексте равно 9
CLS
FOR I = 1 TO 100
IF I MOD 2 = 0 THEN
K=K+I
END IF
NEXT I
PRINT K
<span>b. Для того чтобы число делилось на 2, достаточно, чтобы оно было четным
</span><span>d. Для того чтобы число делилось на 3, достаточно, чтобы сумма его цифр </span>
Program n1;
var kord: array[1..6] of real;
st: array [1..3] of real;
i: integer;
begin
i:=1;
while i<=6 do
begin
write('введите координаты точки через пробел: ');
readln(kord[i],kord[i+1]);
i:=i+2;
end;
st[1]:=sqrt(sqr(kord[3]-kord[1])+sqr(kord[4]-kord[2]));
st[2]:=sqrt(sqr(kord[5]-kord[1])+sqr(kord[6]-kord[2]));
st[3]:=sqrt(sqr(kord[5]-kord[3])+sqr(kord[6]-kord[4]));
if (st[1]<(st[2]+st[3])) and (st[2]<(st[1]+st[3])) and (st[3]<(st[1]+st[2])) then write('P=',st[1]+st[2]+st[3]) else write('треугольник не существует');
end.
#include "pch.h"
#include <iostream>
#include <clocale>
using namespace std;
int main() {
setlocale(LC_ALL, "");
int n, k, l;
cout << "Введите значение n: ";
cin >> n;
cout << "Введите значение k: ";
cin >> k;
cout << "Введите значение l: ";
cin >> l;
int *arr = new int[n];
cout << "Заполните массив: ";
for (int i = 0; i < n; i++) {
cin >> arr[i];
}
int sum = 0;
for (int i = k; i <= l; i++) {
sum += arr[i];
}
cout << "Сумма элементов массива с номерами от K до L включительно = " << sum << endl;
return 0;
}
