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

// 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.

0 0

4 года назад

Сколько страниц займет при печати текст объемом 4,5 Кбайта, если на странице помещается 60 строкпо 54 символа в строке?

leleklon [58]

60*54=3240 - cимволов на одной странице
1 символ = 8 бит
Страница: =3240*8=25 920 бит
текст = 4,5 Кбайт= 4,5 *2^13 бит =36 864 бит
36 864 : 25 920≈ 1,42 страницы = 2 страницы
ответ 2

0 0

4 года назад

1) (AVB^A)^B=F2)(AVB^AVB)=Fпомогите по информатике пожалуйта оч нужно

Kamillla1990 [17]

1)
F= (A+B*A)*B
F=A*B+B*A
F=A*B
2)
F=(A+B*A+B)
F=A+B(A+1)
F=A+B

0 0

4 года назад