Задача А. Треугольное число Как известно, целое число n называется треугольным, если его можно представить в виде n = k - (k+1)/2, где k — целое число. Например, п= 6 треугольное, так как 6 = 3 - 4/2, а п = 5 — не треугольное. Дано число п. Является ли оно треугольным? Формат входных данных В первой строке записано целое число n (0 < n< 11). Формат выходных данных В первой строке выведите «YES», если пявляется треугольным числом, и «NO» противном случае. Каждая буква ответа может быть как большой, так и маленькой.

1 подсчитать количество (n) символов в введенном предложении
2 организовать цикл (i=1)с количеством циклов n-1
3 в теле цикла ввести условие / если (функция выделения первого символа (i)) неравно " "(пробел) И (функция выделения последующего символа (i+1)) равно " " то включаем счетчик r=r+1 /
4 короче нужно искать совпадение символ-пробел, но есть проблема с последним символом если этот символ не пробел то слово не зачтется для этого нужно одно условие если (функция выделения последнего символа (n))неравно " " то r =r+1

1)

program z1;
var
k, m, r: integer;
begin
write('k = ');
readln(k);
write('m = ');
readln(m);
r := 60 * k + m;
writeln('в минутах: ', r);
end.

2)

program z2;
var
k, m, a, b, l: integer;
begin
write('k = ');
readln(k);
write('m = ');
readln(m);
write('a = ');
readln(a);
write('b = ');
readln(b);
write('l = ');
readln(l);
if ( (60 * k + m) + (60 * a + b) ) < (60 * l - 15) then
writeln('пойду')
else
writeln('не пойду');
end.

3)

program z3;
var
m, r: integer;
begin
write('m = ');
readln(m);
r := m;
while r >= 60 do
r := r - 60;
writeln('стрелка будет показывать ', r, ' минут');
end.