Готово :)
..............................
Var s: String;
k, kol: Integer;
Begin
kol := 0;
readln(s);
while pos(' ',s) <> 0 do
begin
k := pos(' ',s);
if k <> 0 then
if k = 4 then begin
kol := kol + 1;
delete(s,1,4);
end else
delete(s,1,k);
end;
if length(s) = 3 then begin
kol := kol + 1;
delete(s,1,3);
end;
writeln(kol);
End.
Текстовые и графические алгоритмы, линейный алгоритм ( такие бывают )Алгоритм (модель процесса решения задачи) может быть представлен в виде текста на естественном языке или графически (блок-схемой).Алгоритм на естественномязыке даёт человеку болееподробную информацию, аблок схема – это наглядныйспособ представления информации. Алгоритм можно разделить по способу записи (форме представления) на текстовые (описание на естественном языке) и графические (блок-схемы). Алгоритм на естественном языке даёт более подробную информацию, а блок-схема – более наглядную.
1) сани - США меняется на мо - мони
2) торт последняя убирается тор
Мони+тор=монитор
Ответ: монитор