Составьте программу нахождения количества слов в предложении. предложение состоит из слов, отделенных друг от друга одним пробелом. предложение вводится с клавиатуры.

Program task; var s: string; i, r: integer; begin writeln('введите предложение: '); readln(s); if (length(s) > 0) and (s[1] < > ' ') then r : = 1; for i : = 1 to length(s) do if s[i] = ' ' then r : = r + 1; writeln('результат: ', r); readln; end.

K: =0; \\ for(i=0; i< 100; i++){                       if (a[i]> 17){                                     k++;                                       }                         } write('k=',k);

1) begin пишется через е 2) не written, а writeln 3) аналогично, не writelen, а writeln 4) не redlrn; а readln end; program primer1; {название без пробелов и с точкой и запятой}uses crt;             {подклжючение необходимых библиотек} var a, b, z: integer; {обьявление переменных, : после переменных, и ; после типа переменных} begin  {начало тела программы, ничего не ставится, так как єто начало исполнения программы}clrscr;   {очиска экрана} writeln(введите два целых числа ); {ln делает вывод на экран после с новой строки} readln(a, b); {данные вводяться каждый с новой строки} z=a*b;   {поск произведения} writeln('произведени чисел =',z) {вывод на экран результата произведения} writeln ('нажми enter '; ) redln; {задержка экрана, чтобы успеть увидеть результат, до нажатия клавишы энтер} end.{конец тела программі, ставиться не точка с запятой, а лишь точка}