Page интегрированной Up среды [3] age own 3. Запишите код программы с операторов программирования для заданного алгоритма. Алг Пример Код программы Нач х=5 y=-6 если (х вывод (2) кон алг 4. Покажите запись следующих математических выражений на языке программирования: [3] 4. Y = 5х + 3 5. Х = х2 +х+1. 6. Y= x(5+1) 7. Z = 1, 8. Х равен остатку от деления 19 на 5: 9. Z равен частному (целое) от деления 18 на

Вот так эту задачу можно решить на современном Паскале. Но, к сожалению, так в школах не учат, заставляя тратить время и силы на громоздкие программы, в которых легко ошибиться.

// PascalABC.Net 3.2

begin
  Write(ReadlnString('->').ToWords.Where(x->x.Left(2)='со').Count)
end.

Пример:
-> Три собаки сосали одну косточку
2

А вот так (примерно, потому что обычно еще хуже) учат писать программы в школе...

var
  s:string;
  i,n,k,p:integer;
begin
  Write('->'); Readln(s);
  if Copy(s,1,2)='со' then k:=1 else k:=0;
  Delete(s,1,3);
  repeat
    i:=Pos(' со',s);
    if i>0 then begin
      Inc(k);
      Delete(s,1,i+3)
      end
  until i=0;
  Writeln(k)
end.

Иван: французский, китайский. Антон: немецкий, японский. Пётр: шведский, греческий. Поясняю на сколько это возможно. 2) Антон не знает шведский и французский. 3)Пётр (он самый высокий - пункт 1) не знает французский. Значит, французский - Иван. 4) Пётр не знает яп. и кит. 5) Антон не знает кит. и греч. 4),5) => китайский - Иван. С Иваном разобрались... 2),5) => Антон не знает греческий и шведский (фр. и кит. уже у Ивана). Значит, их знает Пётр. Антону, в таком случае, достаются немецкий и японский. Надеюсь, понятно.